
THE §3®3 JOURNAL 



• 




No. 28 



SEPTEMBER 



$2.00 



■ 



Mountain Hardware makes 

more peripherals for 

the Apple Computer 

than Anybody. 




for lights and 
appliances. Real-time schedules and 
energy conservation Complete applications 
software package. Home security with random 
scheduler. Power usage accounting package for 
home energy cost control. No wiring required. 



n. Interrupts 
d operation of 
y. Battery back-up. 
Crystal-controlled for * .001% accuracy. Onboard 
ROM for easy access from BASICS. Supports 
PASCAL. Time from one millisecond to one year. 



and . . . 

a place to put them 
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ams. I/O capability 

nputs. Use output for 

nnouncements in acontrol- 

ms. Easy to use because inpu 

,ecial software operating system. 



/Is. Create your own firmware. 
i_r'ROMs. Disk software package 
programming. EPROMs are verified 
r programs from on-board socket or 
US+. 



ROMPLUS+ 



„Jm through firmware. Six sockets 
ms or ROM equivalents. Six or any com- 
bination can be used at once. Scratch-pad RAM and two TTL 
connectors. Special 2K ROMs available for powerful system 
enhancement: Keyboard Filter ROM-COPYROM-Others 
coming soon. 



music system 



le only on 

experimental mini and mainframe com- 
puter synthesizers. Digital instrumental 
music synthesizer system. 16 voices in 
stereo. Instrument definitions simulate the 
sound of real instruments— and more. Fully 
programmable waveforms. Envelope Con- 
trol. Composition system— sheet music 
input using standard music notation. 
Chords and multi-part scoring up to 16 
voices. A true instrument that anyone with 
an A 
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EXPANSION CHASSIS 



duty power supply. Easy to use. Aoaress car — 
in Expansion Chassis the same way as in your 
Apple. Only one additional command to specify 
in Apple or in Expansion Chassis. Compatible with 
all Apple peripherals. 



MOUNTAIN HARDWARE has the most compre- 
hensive line of Apple peripherals available. 
Anywere. From anybody. We know the Apple 
inside and out and are committed to providing 
the most innovative and unique products to 
expand and enhance its capabilities and use. 
After all. we were the first company to make an 
Apple peripheral— except Apple Computer. 

The message is simple. If you have an Apple, you 
need to know MOUNTAIN HARDWARE. 

Available at Apple Dealers worldwide. 



Ka Mountain Hardware 

5S Leadership in Computer Peripherals 
^A A Division ol Mountain Computer, Inc. 
300 Harvey West Blvd. 
Santa Cruz. CA 95060 (408) 429-8600 

MORE PERIPHERALS? Send me information. 




digital input. 16 
to analog output, 
ution. Super-fast 8jj 
sec. conversion time. Monitor and 
output to the real world. All on one 
card. 



Apple is a trademark ot Apple Computer Inc. 



• Education 

• Training 

• Sales 

• Demonstrations 

• Security 

• Inventory 

• Realty Sales 

• Travel Agencies 

• Video Disc 
Authoring 

• Personnel 
Identification 

• Video Disc 
Emulation 

• Indexing 
Photographs 

• Home Video 
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THE ONLY PROFESSIONAL/ 

INDUSTRIAL QUALITY SYSTEM 

ON THE MARKET TODAY 

EASY SOFTWARE CONTROL OF ALL: 

VIDEO • AUDIO • COMPUTER FUNCTIONS 

MAY BE USED WITH: 

BASIC • PASCAL • FORTRAN • PILOT • ASSEMBLY 

COMPLETE AUDIO / VIDEO SWITCHING 

DESIGNED FOR USE WITH: 

APPLE • BELL & HOWELL • PLATO 

THE MOST POWERFUL SYSTEM AVAILABLE 

USES SIMPLE TWO-LETTER COMMANDS 



Random 
Access 
Video 
Equipment 




NON-INTRUSIVE, PATENT PENDING 
CONTROL METHOD PROVIDES: 

• TAPE IDENTIFICATION CODE • FRAME NUMBER CODE 

• FRAME-ACCURATE ACCESS • ERROR FREE 
LOCATION OF ANY FRAME OR SEGMENT • NO TAPE 
SLIPPAGE TO GENERATE CUMULATIVE ACCESS ERRORS 

• COMPLETE SOFTWARE CONTROL OF ALL 
VTR FUNCTIONS. 

SYSTEM INCLUDES: 

• RAVE CONTROLLER UNIT • PLATO COMPATIBLE INTERFACE FOR THE APPLE II AND BELL & 

HOWELL MICROCOMPUTERS • SONY 323 (Beta) or PANASONIC NV8200 (VHS) VTR 

• COMPLETE DEMONSTRATION, TUTORIAL and EDITING SOFTWARE • ALL NEEDED CABLES 

AND CONNECTIONS 

Price F.O.B. San Antonio, Texas $4990.UU 

SOFTWARE DESIGN AND CONSULTING AVAILABLE • CUSTOM INTERFACE AVAILABLE FOR ANY COMPUTER 

Specifications and Delivery! Dates Available FROM: 



CREATED BY: 

VIDEO ASSOCIATES LABS 
INNOVATORS IN VIDEO APPLICATIONS 



SOLUTIONS. INC 



(\AP ) INNOVATORS IN VIDEO APPLICATIONS 3740 Colony Drive 

V V vAV San Antonio, Texas 78230 

>■ < : (512) 690-1017 

•APPLE II is a trademark of Apple Computer Company TheSoureerTci 170 

•BELL & HOWELL MICROCOMPUTER is a trademark of BELL & HOWELL, INC. 
•RAVE is a trademark of SOLUTIONS, INC. and VIDEO ASSOCIATES LABS, INC. 
•PLATO is a trademark of Control Data Corporation 




THE STAR MODEM 

From Livermore Data Systems 



£ 



The STAR modem from Livermore represents a 
significant breakthrough in the development of 
acoustic modems. The small, lightweight case 
houses a high-performance modem that competes 
with the highest quality standard-sized couplers 
available. Yet, because of its costs effective design, 
the STAR has become the price/performance leader 
in the industry. 
CIRCUITRY 

The switchable. four-section bandpass filter provides 
the user with excellent out-of-band rejection to 
assure accurate processing of the received car- 
rier, even at signal levels ot less than -47 dBm. 
Further, the proven soft limiter and phase lock 
loop discriminator yields data that is essentially 
jitter free. 

The oscillator is built using highly stable, state- 
variable circuitry that delivers a nearly harmonic 
free, phase coherent sine wave to the telephone 
network, assuring compatibility with all other 
1 03 type modems. Because of the pureness of the 
sine wave, the STAR modem exceeds even the 
stringent harmonic requirements of all CCITT 
countries. 



IEEE 488 MODEM 

SALES 

RS232 MODEM 

SALE $139 



CARRIER DETECT 

To assure accurate teleprocessing connections, 
the carrier detect circuitry prevents the modem 
from attempting to operate when excessive noise 
would produce errors or cause marginal operation. 
The circuitry also has a special amplitude sensor 
that prevents chatter when the received signal 
fades. 

EXCLUSIVE ACOUSTIC CHAMBERS 

The exclusive triple seal of Livermore's new flat 
mounted cups locks the handset into the acoustic 
chamber yielding superior acoustic isolation and 
mechanical cushioning. Designed to adapt to most 
common handsets used throughout the world (also 
fits GTE handsets), the STAR offers the utmost in 
flexibility and transmission reliability. 

SELF TEST 

The self test feature on the STAR allows the user to 
verify total operation of the acoustic modem by 
using the terminal in the full duplex mode. No need 
for remote assistance in diagnosing terminal or 
modem products. 



Utilizing the experience gained from building high 
quality couplers for over twelve years. Livermore 
has designed a coupler superior to any it its class for 
cost efficiency in industrial, commercial, business or 
home situations. You can see why we call it the 
STAR! 

SPECIFICATIONS 

Oiti Rati to 300 baud. 

Compatibility. Bell 103 and 113; CCITT. 
Transmit Frequencies.* Originate- 1070 Hz/Space, 
1270 Hz/Mark; Answer- 2025 Hz/Space, 2225 
Hz/Mark. 

Receive Frequencies.* Originate - 2025 Hz/Space, 
2225 Hz/Mark; Answer - 1070 Hz/Space, 1270 
Hz/Mark. 

Frequency Stability. ±0.3 percent. 
Receiver Sensitivity. -50 dBm ON, -53 dBm OFF. 
Transmit Level. -15 dBm. 
Modulation. Frequency shift keyed (FSK). 
Carrier Oetect Delay. 1 .2 seconds ON; 1 20 msec OFF. 
EIA Terminal Interface. Compatible with RS 232 
specifications. 
Interface. IEEE 488. 
Optional Interfaces. 20 ma; 
•International (CCITT) frequencies available. 
Switches. Originate/Off/Answer; Full Duplex/Test/ 
Half Duplex. 

Indicators. Transmit Data. Receive Data, Carrier 
Ready, Test. 

Environmental. Ambient operating temperature 5 "C. 
to 50°C. Relative humidity 10 to 90 percent (non- 
condensing). 

Power. Supplied by 24 VAC/150 MA UL/CSA listed 
wall-mount transformer. Input 1 15 VAC, 2.5 watts 
(220 VAC, 50 Hz adaptor available on request). 
Dimensions. 10" x 4" x 2" 
WetghL 1 .7 lbs. (2.2 lbs. shipping weight including 
AC adaptor.) 
Warranty. Two years on parts and labor. 



6502 745 10 ® 6.95 50 a 655 100 °) 6.15 
6502A 840 10 9> 7.95 50 <o 735 100 ® 6.90 
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21.00 5 P 
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6532 7 90 10 i<s 
21 I4-L450 
2114-1300 
2716 EPROM 
4116-200 ns RAM 
6550 RAM (PET 8K) 
S-100 Wire Wrap 
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5.45 
1900 



660 
415 

510 



265 



100 '.=) 
100 ° 
10 <$ 17 00 
8 9 625 
12 70 
Solder Tail 215 



CASSETTES— AGFA PE-611 PREMIUM 

High output, low noise. 5 screw housing, labels 

C-10 10/5 65 50/25.00 100/48 00 

C-20 10/645 50/2950 100/57.00 

C-30 10/7.30 50/34 00 100/66 00 

All other lengths available Write lor price list 

JjC ATARI 800 SPECIAL $799 

ATAR I All Atari Modules 20% OFF 



DISKS 

(write lor quantity prices) 

SCOTCH (3M) 8" 

SCOTCH (3M) 5" 

Maxell 5" 

Maxell 8" Double Dens 

Verbatim 5" 

BASF 5" 

BASF 8" 

Diskette Storage Pages 

Disk Library Cases 




10/3.10 50/2.85 
10/315 50/2.95 
10/3.65 50/3.40 
10/4 10 50/3.95 
10/240 50/2.35 
10/2.45 20/235 
10/250 20/2.45 
1 
8" - 285 



100/2/5 
100/285 
100/3.15 
100/3 80 
100/2.30 
100/230 
100/235 
lor 3.95 
5" - 215 




Commodore CBM- 
PET SPECIALS 

-Up to S23S Iree 
/i/ merchandise 
Sy with purchase of one ol 
<•* lollowmg CBM-PET 



items: pREE 

2K-80 column CRT S1795 235 



8032 32K-80 column CRT 

8016 I6K-80 column CRT 1495 205 

8050 Dual Disk Dnve-950.000 bytes 1695 220 

CBM Modem-IEEF Interface 395 50 

CBM Voice Synthesizer 395 50 

8N lull size graphics keyboard 795 100 

16K Full Size Graphics or Business Keyboard 995 145 

32K Full Size Graphics or Business Keyboard 1295 205 

2040 Dual Disk Dnve-343.000 bytes 1295 205 

2022 Tractor Feed Printer 795 100 

2023 Pressure Feed Punter 695 90 
C2N External Cassette Deck 95 12 
Used PETs (limited quantities) Call 

**** EDUCATIONAL DISCOUNTS ****" 

Buy 2 computers, get 1 FREE 

VISICALC lor PET (CBM/Personal Soltware) S128 

CBM Assembler/Editor (disk) 89 

CBM General Ledger. A/P. A/R NEW 270 

CBM Full Size Graphics Keyboard $ 74 

WordPro l-lor 8K PET 25 

WordPro 11-16 or 32K. 2040. Printer 72 

WordPro III-32K. 2040. Printer 178 

WordPro IV lor 8032 268 

PASCAL Compiler lor PET 75 

Programmers Toolkit-PET ROM Utilities S 44.90 

PET Spacemaker Switch 22.90 

Dust Cover lor PET 790 

IEEE-Parallel Printer Interface for PET 7900 

IEEE-RS232 Printer Interlace lor PET 149.00 



Centronics 737 Proportional Spacing Printer S800 

NEC Spmwriter-parallel 2450 



SYM-1 S209 with 4K RAM 


S 238 


SYM BAS-1 BASIC in ROM 


85 


SYM RAE-1/2 Assembler in ROM 


85 


MOT 1000 Synerlek Development System 


1345 


KTM-2/80 Synertek Video Board 


349 


KIM-l (add S34 lor power supply) 


159 


Seaweli Motherboard-4K RAM 


195 


Seawell 16K Static RAM-KIM. SYM. AIM 


320 


S-100 Static RAM kit SALE 


198 


Leedex Video 100 12' Monitor 


129 


Zenith Z19 Terminal (lactory asm) 


770 


KL-4M Four Voice Music Board lor PET 


S34.90 


Visible Music Monitor (4 Voice) lor PET 


29.90 


SPECIAL— KL-4M with Visible Music Monitor 


5990 


MICROTHELLO lor PET by Michael Riley 


S995 


Machine language version— you can't win al Level 5 


PAPER MATE 60 Command PET Word Processor 


S29 95 


Full-featured version by Michael Riley 




gS A P Products 1 5% OFF 



All Book and Software Prices are Discounted 

PET Personal Computer Guide (Osborne) $12 75 

PET and the IEEE-488 Bus (Osborne) 12 75 

6502 Assembly Language (Osborne) 945 

Programming the 6502 (Zaks) 1045 

-6502 Applications Book (Zaks) 10.45 

Programming a Microcomputer 6502 7 75 

6502 Software Bookbook (Scelbi) 945 



1 1 5 E. Stump Road 

Montgomeryville. PA 18936 215-699-5826 



A B Computers 



WRITE FOR CATALOG 

Add S1 25 per order for shipping We pay balance 

ot UPS surface charges on all prepaid orders 
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Southeastern Software MUX> ^gSSSSm 



New Orleans, LA 701 26 
504/246-7937 




Southeastern Software NEWSLETTER' for APPLE II Owners 

NOW IN THE THIRD YEAR OF PUBLICATION 

1 Issues per year for $1 0.00 

Back Issues available at $1 .00 each 

EXAMPLE: 

Send $10.00 and receive next 10 Issues 

Send $30.00 and receive 30 Issues beginning with #2 



DATA CAPTURE 3.0 - $29.95 

Is DATA CAPTURE 3.0 just another Smart Termi- 
nal program? NO! It is a GENIUS Terminal pro- 
gram for use with the Micromodem II®. It will 
'capture' ANYTHING that appears on the screen 
of your CRT. ANY program or data. If you are 
using the Source you can even capture' CHAT. 
There is no need to create files in your file space 
on the other system to transfer data to your Apple. 
If you can list it you can capture it. 

* You can then SAVE the data to disk, dump it 
to your printer or even do simple editing with 
DATA CAPTURE 3.0. 

* You can use DATA CAPTURE 3.0 to com- 
pose text off line for later transmission to 
another computer. Think of the timeshare 
charges this will save you! 

* Use DATA CAPTURE 3.0 with the Dan 
Paymar Lower Case Adapter and you can 
enter UPPER or lower case from the key- 
board for transmission to another system. 
You can also capture UPPER/lower case 
data from another system. 

* A program is also included to convert your 
programs to text files for transmission using 
DATA CAPTURE 3.0. 

* DATA CAPTURE 3.0 will save you money if 
you are using any timesharing system. 

Requires DISK II®, Applesoft II® 

Add $64.95 to order the Dan Paymar Lower Case 
Adapter 

BAD BUY DISKETTE - $9.99 

Of course it's a bad buy. If you have issues #2 thru 
#11 of the NEWSLETTER you can type these 
programs in yourself. Includes a couple of bonus 
programs. 

Requires DISK II®, Applesoft II® 



We ship within 3 working days of receipt of 
order and welcome your personal check. 
We also accept Visa and Master Charge. 



LCMOD for PASCAL - $30.00 

Finally! DIRECT entry of UPPER/lower case into 
the Pascal Editor. Why pay hundreds of dollars for 
a terminal just to set lower case entry with Pascal? 
If you have the Paymar Lower Case Adapter you 
can use this program. 

* Left and right curly brackets for comment 
delimiters. 

* An underline for VARs, program names and 
file names. 

* The ESCape key does the shifting and Con- 
trol Q is used for ESCape. Have you ever 
typed in a page or two of text and lost it by 
hitting ESC accidentally? This won't happen 
with LCMOD. 

Requires Language System and Paymar LCA 

Add $64.95 to order the Dan Paymar Lower Case 
Adapter. 

MAG FILES -$18.00 

Finding it difficult to keep track of all those 
magazine articles you are reading? This program 
will help you do it. MAG FILES is Menu driven with 
separate modules for creating, editing, displaying 
and searching for your data. If you are using one 
drive a program is provided for transferring data to 
another diskette for backup. A sample data base 
of over 60 articles is included. The screen format- 
ting and user orientation are what you have come 
to expect of Southeastern Software. 

Requires DISK II®, Applesoft II®. 
MAILER -$15.00 

Don't let the low cost fool you. This is a single drive 
version of the program we use to maintain the 
NEWSLETTER subscriber list. Can be easily con- 
verted to 2.3 or 4 drives. Binary search and linear 
searches for finding any name in file. Sort on 
names and zip codes. Selective print by zip code 
or key. The separate modules are menu driven 
and will run on 32K system. There are 1 3 separate 
modules on the diskette for maintaining a mailing 
list. Sample data file included. 

Requires DISK II®, Applesoft II®. 



" Apple, Apple II Plus, Disk II and APPLESOFT II are trademarks of Apple Computer Company. 
' Micromodem II is a trademark of D.C. Hayes Associates, Inc. 



Games, Games, Games .... 



" Words, words, words! I'm so sick of words ...." is 
the start of a song sung by Liza Doolittle in My Fair 
Lady. In this song she expresses her despair at 
the interest in words to the exclusion of other mat- 
ters. I can fully understand her feelings. She feels 
that there is a lot more to life than just the "words" 
on which Professor Higgins spends all of his time. 
In a very similar vein, I feel that there is a lot more 
potential to the microcomputer than its popular use 
as an entertaining game-playing device. This is not 
to say that I am totally against computer games. 
Actually, I see nothing "illegal, immoral, or fatten- 
ing" in using computer games for pure enjoyment. 
If a game can be used to interest people in the com- 
puter and/or help to teach them something, all the 
better. My complaint is that all too often, "The 
Game" is the exclusive use of the computer and the 
exclusive interest of the user. 

I believe that the game glut poses two serious 
problems. First, I personally believe that one of the 
most fundamental problems of our modern society 
is the isolation of the individual. While there are ob- 
viously a large number of factors involved, the fact 
that individuals spend a large portion of their time 
watching television (the current figure just an- 
nounced is 7.25 hours of television per day!) must 
be significant. It bothers me to see a majority of 
microcomputer users spending their time playing 
solitary computer games. While this is probably 
better than passively watching the TV, it does not 
do much to encourage social contact or interaction. 
Is the main impact of this fantastic microcomputer 
revolution going to be greater dependence on 
machine based interaction and less on inter- 
personal interaction? Given the natural interest in 
games, why not invent computer based games to be 
played by more than one individual. The computer 
could either be one more player (the elusive "fourth 



for bridge") or could provide a dynamic environment 
for games which are played exclusively by the 
human participants. While a few games are 
available along these general lines, by far the most 
common types of games are the one-on-one: one 
human against one microcomputer. 

The second aspect of my "Games, games, 
games"complaint is that there are so many other 
uses of the microcomputer waiting to be 
discovered, but most of the potential discoverers 
are too busy playing games to consider alternative 
uses. Somewhere in the vast pool of new com- 
puterists there must be some individuals who could 
become the Einstein of the computer world. There 
is room for revolutionary improvements in the pro- 
gramming and application of computers. If the new 
computerists, who are being introduced to the 
microcomputer via games, get trapped into the 
game playing habit, then who will make the new 
discoveries and exciting improvements? 

I have no simple solution. Since computer games 
are fun, many people are going to spend all of their 
computer time and money playing them. MICRO is 
going to be starting several series of articles in the 
coming months that will try to show how produc- 
tive work can be as exciting and challenging as 
games, and vastly more rewarding. In the mean- 
time, you should seriously consider how you are us- 
ing your equipment, your time, and your money. 
Isn't it perhaps time that you started contributing to 
this field, instead of just playing around in it? 
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MICRO in the Lab 
Cover Artist 
Terry Spillane 



Is that a crown that Lana is 
wearing? What did our Simian 
ancestor do to receive such royal 
treatment? Lana has 

demonstrated the rudiments of 
linguistic competence — the 
"crown" is an array of electronic 
sensors which are used to learn 
more about the phenomenon Lana 
has displayed. 

While our Lana is fictitous, the 
scene depicted on our cover is 
based on an actual experiment. A 
chimpanzee named Lana has 
been taught to communicate with 
a small computer, using a special 
picture language. 

Using a computer as the medium 
for the picture language, the 
designers of the Lana experiment 
have attained some significant ad- 
vantages. The computer allows 
24-hour monitoring and mass data 



storage. Only ten years ago, the 
equipment needed for this experi- 
ment would have taken up half a 
room and it would have cost over 
$10,000. Now, however, a simple 
single board Microprocessor (like 
the KIM-1) has more than enough 
processing power for such a task. 
Perhaps even more importantly, 
the computer can easily analyze 
sentences in a phrase-structure 
language for correct form. Actual- 
ly, your Micro does this each time 
you run a basic program! 

The Microcomputer's place in 
the lab has become well establish- 
ed; the Lana experiment is just 
one example. The next few years 
should see Micros being used in 
even more innovative ways in the 
lab. ..perhaps soon a Micro may 
even be generating, rather than 
monitoring, language! 



• Judge tills character generator for yourself • 




Regular PET Graphics 



HAL GRAPHICS 
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Compare the two Snoopys and 
you'll begin to see why the new 
HAL PCG 6500 is attracting so 
much attention. It's the program- 
mable character generator for your 
PET that gives sharp, detailed 
graphics. 

Important features include: 

• Storage for 64 new characters 

• Built-in CB2 sound amplifier that produces all 
tones in the human hearing range 

• PCG Manual and demo program 

• Interlace to PET/CBM with 24 pin character gen- 
erator ROMS. ( If your PET uses 28 pin ROMS, 
Conversion Kits are available for $45. To simplify 
ordering, please indicate memory RAM *2114 
or*6550.) 

The HAL PCG 6500 is available exclusively at 
Systems Formulate . . . 



Only $ 200 



&r 



( plus «5 shipping & handling I 

Add $45 for 28 pin Conversion Kit 



MIPL0T: the right plotter at the right price 




MIPLOT by Watanabe Corporation 



Designed for straight forward interface to any 
microcomputer that outputs the ASCII code, 
MIPLOT can even be used by operators with no 
plotter experience. 

• Incorporates pre-programmed "intelligent" functions 
required for producing graphs and drawings 

• Solid and broken line types can be specified 

• Built in character generator for letters, numbers and 
symbols 

• Characters can be enlarged and rotated to four 
orientations 

• Special printer mode outputs character data as-is 

• Uses commonly available hard fiber-tip pens 

• Maximum plot speed approximately 2 Inches per 
second 

• Built in self-test mode 

Only $1,800 

at SystemsFormulate Corporation 

(plus shipping & handling) 



I 



ADCOM Light Pen (with sound) . . . Only *34 98 

(plus $2 shipping SP handling) 



Unlike many light pens, the ADC0M interfaces 
with PET through the second cassette port rather 
than the parallel port. The result? Sound! 



• Ready to plug In. no assembly necessary. 

• Faster than many other light pens designed for PET. 

• Builtrin sensitivity control. 

• Machine language and demo program Included for ease 
of programming. 



Expand with the finest in micro peripherals, systems and software from Systems Formulate. 

Call today for more information or to place your phone order: (415) 386-9100 

We honor Master Charge, Visa, check or money order. 

(California residents add 6.5% tax) 



Creating Shape Tables, Improved! 



Building a Shape Table for use with the Apple HI-RES 
Graphics can be a painful task. This improved Shape 
Making Routine turns the pain into pleasure. 



Peter A. Cook 
1443 N. 24th St. 
Mesa, AZ 85203 



Three cheers to John Figueras for 
unraveling the mysteries of the Ap- 
ple shape table in MICRO 19:11. His 
article presented an extremely 
useful tool for creating shapes, and 
greatly simplified a task which had 
been so difficult and time comsum- 
ing as to be hardly worth the effort. 



After using the Figueras pro- 
grams a few times, it became ap- 
parent that they would be much 
more convenient if they were com- 
bined into one large program. Also, 
they contained several minor errors 
which needed correcting. This arti- 
cle describes changes and correc- 
tions which greatly increase the 
usefulness of the original programs. 

Combined Program 

Combining the programs for in- 
itializing, creating, and displaying 
shape tables into one large program 
eliminates the need for typing the 
name of the next program each time 
you need to load it from the disk, 
and then waiting for it to be loaded. 
It also eliminates the need to con- 
tinually re-enter the name and star- 
ting address of the desired shape 
table, and the subsequent wait for it 
to be loaded. 

I combined the three original pro- 
grams by treating them as sub- 
programs. Since they all used 



similar line numbers, they required 
extensive renumbering. This was 
easy to accomplish using the 
'Renumber' program found on the 
DOS 3.2 master diskette. The 
numbers were not done con- 
secutively in order that the last two 
digits would remain the same as in 
the original programs in most 
cases. The new line numbers corres- 
pond to the old ones roughly as 
follows: title page, 100-150; in- 
itialize, 1000-1300; create shapes, 
2000-3300; and display shapes, 
4000-4500. 

Title Page 

The program begins by listing the 
title information and then by 
automatically loading the numerals 
shapefile. I have used the term 
'shapefile' throughout the program 
to denote a shape table which has 
been stored as a disk file, as oppos- 
ed to one which merely resides in 
RAM. 

The program has been converted 
for use with a single disk drive by 
omitting the volume and drive 
numbers from the disk commands, 
because with the prices of drives be- 
ing what they are, I would venture to 
say that most of us have only one. 

A short menu then appears, which 
allows selection of any of the three 
subprograms, or termination of the 
program. 



Initializing Subprogram 

The greatest change made in this 
subprogram was the removal of the 
steps for producing the cursor. Plac- 
ing the cursor into every shape table 
as the first shape in each one was 
wasteful of space, and very confuc- 
ing . The cursor is always available 
as the first shape in the numerals 
shapefile, which is loaded when the 
program begins. Details of the 
numerals shapefile will be covered 
later. By using the improved pro- 
gram, your tables will now contain 
only the desired shapes, and will 
start with number one instead of 
number two. 

Because of the removal of the cur- 
sor, line 1060 now adds a few more 
zeros so that the starting address of 
the first empty shape will contain a 
zero end-of-record mark. Line 1090 
now calculates the index to the first 
shape instead of to the cursor. The 
variable ADDR had to be changed to 
ASVE to make it compatible with the 
shape creating subprogram. 

Lines 1260-1300 were changed to 
let you know that the computer is 
doing what it is supposed to do, and 
to ask if you want to save the file on 
disk at this time. You can save time 
by waiting until the end of the shape 
creating subprogram before storing 
the shape table on disk. 

The menu is then repeated at the 
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bottom to avoid having to return to 
the title page. 

Shape Creating Subprogram 

This subprogram assumes that 
you are still working with the same 
shape table that you initialized in 
the previous subprogram, and 
shows you what its name and star- 
ting address are. In case you want 
to work on a different shapefile 
which was previously stored on the 
disk, allowance is made for entering 
its name and address. The desired 
shape table is then loaded into its 
proper location. 

The computer then checks to see 
if there is any space left for more 
shapes in that table. If not, it so ad- 
vises you and tells you the address 
of the next free byte after the end of 
the table. The original program at- 
tempted to do this, but actually it 
accessed the first two bytes of the 
cursor vectors instead of finding the 
zero end-of-record mark, and thus 
provided a meaningless number. 
Lines 2132-2262 include the 
changes to correct this. 

Since the cursor is now located in 
a different shape table than the one 
with which you are currently work- 
ing, the computer must be able to 
switch from one table to the other 
as needed, to line 2264 remembers 
the pointer for the new shape table, 
and uses it again in the line 3170. 

The text at the bottom of the plot- 
ting grid has been improved by ad- 
ding line 2350 to show the number 
fo the shape you are currently work- 
ing on. The limits of the starting 
coordinates are shown in lines 
2360-2380, along with the fact that 
coordinates are measured from the 
upper left. Error checks were added 
to prevent entering coordinates 
located outside of the grid, which 
could stop the program in some in- 
stances. 

The word "ERASE" was added to 
the list of keyboard commands 
LEFT, RIGHT, etc. In the original 
program, no checks were made on 
the values of x and y when entering 
L, R, U, or D, so if you accidentally 
exceeded certain grid boundaries 
the program would shut down. This 
was especially easy to do if you 
were using the "repeat" key to move 
the cursor. Lines 2600-2664 now 



+ + + 



Figure 1. Upper left corner of the display grid, showing 
the starting points for the three possible digits of the 
shape number, and for the shape itself. 



contain error checks which prevent 
the grid limits from being exceeded, 
and sound a beep if you attempt to 
do so. 

The original program placed a 
permanent cursor mark in the star- 
ting position. This meant that there 
were always two cursor marks visi- 
ble within the grid, which was 
] 
*4E20.4EDB 



sometimes confusing. Line 2390 
now places a large " + " in the star- 
ting square, the points of which are 
always visible around the outside of 
the cursor or around the outside of a 
plotted circle. The original program 
also attempted to give a reverse im- 
age of the cursor if it passed 
through a plotted circle. The succes- 
sion of XDRAW commands, 
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Figure 2. Hex pairs of the numerals 
shape table. 
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however, was incorrect for all com- 
binations of plotting, erasing, and 
passing through the starting posi- 
tion. Changes were made in lines 
2680, 2740, 3040 to correct this. Now 
it is always obvious where the cur- 
sor is located and where the starting 
position is located. 

The erase command is only effec- 
tive immediately following a plot 
command. There is a way to erase 
any other plotted point, however, 
and that is by simply plotting over 
top of a point which has already 
been plotted. This will not erase the 
circle plotted in the grid, but the 
point will not appear in the finished 
shape when it is drawn to the right 
of the grid after the quit command. 

In the original program, the warn- 
ing "SHAPE TABLE FULL WITH 
THIS SHAPE" appeared both after 
the second-last shape as well as 
after the last shape. Changing N to 
N-1 in line 3230 allows the warning 
to appear only after the last shape. 

The menu is repeated again at the 
bottom to allow selecton of any 
other subprogram, to to run the 
same one again. 

Shape Display Subprogram 

This subprogram starts out as the 
previous one did, by listing the 
name and address of the shapefile 
you are currently working with. If 
you wish to display a different one, 
enter its name and address. 

Some variable names were chang- 
ed to keep them compatible with the 
rest of the program. ADDR was 
changed to ASVE, and NN was 
changed to N. In line 41 14 (line 70 in 
the original) NL was changed to 
NLO, although either variable is ac- 
ceptable since Applesoft only 
recognizes the first two characters 
of a variable name. 

In the original program the screen 
went black after the shapefile was 
loaded, and you had to remember to 
press any key to start the display. 
Line 4150 keeps the instruction on 
the screen until you need it, and line 
4202 takes you immediately into the 
first page of the display. 

The grid lines created by the 
original program had an odd dot pat- 
tern which was not very useful 



because it didn't show where the 
starting positions of the shapes 
were located. Lines 4250-4310 were 
changed to present the dot pattern 
shown in Figure 1. 

Pressing any key after the last 
page of the display puts the menu 
back on the screen. 

Numerals Shapefile 

In order to use the above program, 
the 'numerals' shape table must 
already have been stored on the disk 
in order to have the cursor available. 
If this has not been done, it will be 
necessary to load the shape table 
using either of the two following 
methods. 
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Figure 3. Cursor and numerals. The 
starting point is in the center of the 
cursor, and five spaces to the right 
of all the numerals. 



Figure 2 lists the hex values of 
the entire numerals shape table. 
It can be placed in RAM by enter- 
ing the monitor mode, typing the 
addresses at the left, such as 
4E20, followed by a colon, follow- 
ed by each two-character ele- 
ment separated by a space. Since 
there are 188 elements, this may 
take some time. When you have 
finished, don't forget to save 
what you just typed before you 
run the program. Use BSAVE 
SHAPEFILE NUMERALS, 

A20000, L188. 

The numerals are of the same 
design as the Apple numerals 
and are depicted in Figure 3. The 
starting point was placed five 
spaces to the right of each 
numeral, so that the finished 
numeral will be shifted off to the 
left of the shape which is 
displayed in the same block with 
it. 

Another method is to type in 
just enough of the shape table to 
have the cursor available, and 
then to form your own numerals 
by using the shape creating sub- 
program. To do this, POKE each 
of the values in Figure 4 into its 
proper location by using the for- 
mat POKE 20000, 1. Transfer it to 
the disk using BSAVE 
SHAPEFILE NUMERALS, 

A20000, L30. Then run the pro- 
gram and select the shape 
creating subprogram. Enter the 
name SHAPEFILE NUMERALS, 
and the address 20000. Form all 
of the digits in the order zero 
through nine by following the in- 
structions on the screen, and 
then you will be ready to create 
and display other shape tables. 

Conclusion 

The program listing is 
presented on the following 
pages. In order to save space, all 
remarks were removed except for 
a title at the beginning of each 
subprogram. Basically, the same 
remarks apply as published in the 
original article. 

In closing, I would like to thank 
John Figueras for providing Ap- 
ple users with a most useful addi- 
tion to their repertoire of utility 
programs. 
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Location Value Description 
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Number of shapes completed 



Location in table, starting address + 24 



Major Peter Cook is a jet pilot in- 
structor at Williams Air Force Base 
in Arizona. He uses his Apple II to 
simulate aircraft scheduling pro- 
blems at work, and designs games 
for his kids at home. This is his se- 
cond article for MICRO. 



Cursor vectors 
Cursor vectors 
Cursor vectors 
Cursor vectors 
Cursor vectors 
Zero end-of -record mark 



Figure 4. Minimum entries for pro- 
ducing the cursor in the numerals 
shape table. 
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180 REM SHAPEFILE CREATE/DISPLAV 
P. COOK, JfiN 1980 
ADAPTED FROM J. FI6UERAS 
MICRO MAGAZINE, DEC 1979 

110 HOME : PRINT : PRINT "****** 
**************************** 

112 HTAB 9: PRINT "SHAPEFILE CRE 
ATE/DISPLAV" 

114 PRINT : HTAB 12: PRINT "P. C 

00K, -JAN 1980" 
116 HTAB 9: PRINT "ADAPTED FROM 

J. FIGUERAS" 
118 HTAB 9: PRINT "MICRO MAGAZIN 

E, DEC 1979" 
120 PRINT : PRINT "************* 

***************************" 

122 D$ = CHR* <4>: PRINT D$;"N0M 

ON C#I#0": PRINT D*;"BL0AD S 

HAPEFILE NUMERALS" 
130 UTAB 13: HTAB 6: PRINT "1 I 

NITIALIZE SHAPEFILE" 
132 PRINT : HTAB 6: PRINT "2 CR 

EATE SHAPES" 
134 PRINT : HTAB 6: PRINT "3 DI 

SPLAV SHAPES" 
136 PRINT : HTAB 6: PRINT "4 EN 

D" 
140 UTAB 23: INPUT "SELECT < 1^2/ 

3/4 )? "iim 



144 IF UAL CIN*) < 1 OR UAL <I 

N*> > 4 THEN UTAB 23: HTAB 

19: PRINT " ": GOTO 140 
146 ON UAL UN*) GOTO 1010,2010 

,4010,150 
150 TEXT : HOME : END 
1000 REM INITIALIZE. 
1010 TEXT : HOME : PRINT "INITIA 

LIZE NEW SHAPEFILE" 
1020 PRINT : PRINT " NAME OF NE 

N SHAPEFILE": INPUT " ?"iNA 

ME* 
1030 PRINT : PRINT " STARTING A 

DDRESS (DECIMAL)": INPUT " 

?";ASUE 
1040 PRINT : PRINT " NUMBER OF 

SHAPES TO BE STORED IN FILE" 

: INPUT " ?";N 
1060 FOR I = O TO 2 * N + 3 
1070 POKE ASUE + 1,0: NEXT 
1090 N = 2 * N + 2 
1110 POKE ASUE + 2,N - 256 * INT 

CN * ?56> 
1120 POKE ASUE +3, INT CN / 256 

> 

1260 PRINT : PRINT "SHAPEFILE IN 

ITIALIZED" 
1280 INPUT " SAUE ON DISK CY/H5 

? ";IN$: IF IN* < > "V" THEN 

1310 
1290 PRINT D*i"BSAUE ";NAME*;% 

A"; ASUE;", L";N + 1 
1300 PRINT : PRINT "SAUED" 
1310 UTAB 21: PRINT "1 INIT 2 

CREATE 3 D I SPLAV 4 END" 
1320 GOTO 140 
2000 REM CREATE SHAPES. 
2010 I = 0: TEXT : HOME : PRINT " 

CREATE NEW SHAPES IN SHAPEFI 

LE" 
2020 PRINT : PRINT "CURRENT SHAP 

EFILE AND ADDRESS:" 
2030 PRINT : HTAB 3: PRINT NAME* 

2040 PRINT : HTAB 3: PRINT ASUE 
2050 PRINT : PRINT : PRINT "FOR 

NO CHANGE, PRESS RETURN:" 
2070 PRINT : INPUT " DIFFERENT 

FILE? "iIN*s IF LEN CIN*> = 

THEN 2080 



2875 NOME* = IN*: I = 1 
2880 PRINT : INPUT " DIFFERENT 
HDDRESS? ";IN*: IF LEN < IN* 
) = THEN 2100 
2085 HSUE = UflL <IN*>:I = 1 
2100 IF I = THEN 2130 
2110 PRINT D*;"BLOHD ";NHME*;" , 

fl" ;HSUE 
2130 HfiX = PEEK <HSUE + 2) + 256 

* PEEK CfiSME + 3) 
2132 FB = HSUE + PEEK <HSUE + HH 
X - 2) + 256 * PEEK (HSUE + 
MAX - 1) 
2140 MHX = (MAX - 2> / 2 
2160 N = PEEK <HSUE> 
2228 IF MflX > N THEN 2260 
2222 IF PEEK <FB> < > 8 THEN F 

B = FB + 1: 60T0 2222 
2224 FB = FB + 1 

2230 PRINT : PRINT : PRINT "SHHP 
E TABLE FULL, NEXT FREE BVTE 
" "FB 
2240 60T0 1310 

2260 INDEX = PEEK <HSUE + 2 * N + 
2) + 256 * PEEK <HSUE + 2 * 
H + 3> 
2262 HDDR = HSUE + INDEX 
2264 HHI = INT <HSUE / 256>:HL0 = 
HSUE - 256 * HHI: POKE 232, H 
LO: POKE 233, HHI 
2280 N = N + 1: POKE HSUE,N 
2300 HCOLOR= 3: 8CRLE= 1: ROT= 8 

:CVCLE = 8 
2310 H6R 
2320 FOR X = TO 150 STEP 10: HPLOT 

X,Q TO X,15«: NEXT 
2330 FOR V = O TO 150 STEP 10: HPLOT 

0,V TO 150, V: NEXT 
2350 HONE : UTHB 21: PRINT "SHHP 

E NUMBER "iNi" OF ";MHX 
2360 PRINT "ENTER STHRTIN6 COORD 

S < UPPER LEFT 1,1 >" 
2370 INPUT "X <1-15>? ";X: IF X < 

1 OR X > 15 THEN 2370 
2372 X = 10 * X - 5 
2380 INPUT "V (1-15>? "iV: IF V < 

1 OR V > 15 THEN 2388 
2382 V = 10 * V - 5 

2390 HPLOT X,V - 4 TO X,V + 4: HPLOT 
X - 4, V TO X + 4,V:XS = X:VS 
= V 
2410 PRINT : PRINT : PRINT : PRINT 

2420 PRINT "MOUE CURSOR WITH KEV 

S" 
2430 PRINT " L-LEFT R-RI6HT U 

-UP D-DOWN" 



2440 

2450 
2460 

2480 
2500 
2520 
2538 
2550 
2578 
2590 
2600 

2602 
2610 
2620 



2630 
2640 



2642 
2650 
2660 



PRINT " P-PLOT E-ERHSE Q 
-QUIT" 

POKE 232,32: POKE 233,78 
KEV* = "":KSUE* = "": GOTO 2 
578 

IF FLAG = 1 THEN 2520 

XDRftH 1 AT XI, VI 
XI = X:V1 = V:FLH6 = 8 

XDRAM 1 HT X,V 
KI* = KSUE*:KSUE* = KEV* 

GET KEV* 

IF KEV* < > "U" THEN 2610 
SVMBOL = 0:V = V - 10: IF V « 
5 THEN V = V + 10: GOTO 2664 

GOTO 2760 

IF KEV* < > "R" THEN 2630 
SVMBOL = 1:X = X + 10: IF X = 
145 THEN X = X - 10: GOTO 26 
64 

GOTO 2760 

IF KEV* < ■> 
SVMBOL = 2:V = 
145 THEN V = V - 10: 
64 

GOTO 2760 

IF KEV* < y 
SVMBOL = 3:X = 
5 THEN X = X + 



D" THEN 2650 
V + 10: IF V 3 
GOTO 26 



"L" THEN 2670 
X - 10: IF X '■ 
10: 60T0 2664 



2662 GOTO 2760 

2664 UTHB PEEK <37>: PRINT CHR* 

<7): GOTO 2570 
2670 IF KEV* ■-- > "P" THEN 2690 
2680 FLHG = 1: 60SUB 3000: GOTO 2 

520 
2690 ^Tf KEV* = "Q" THEN 3100 
2710 IF KEV* < > "E" THEN 2578 
2720 HCOLOR= 0-.FLO6 = 0: 60SUB 3 

000 

2740 KSUE* = KI*: HCOLOR= 3: GOTO 

2530 
2760 IF KSUE* = "P" THEN SVMBOL = 

SVMBOL + 4 
2780 CVCLE = CVCLE + 1 
2798 IF CVCLE < > 1 THEN 2818 
2880 BVTE = SVMBOL: GOTO 2480 
2818 IF CVCLE < > 2 THEN 2988 
2828 BVTE = BVTE + 8 * SVMBOL 
2840 IF BVTE > 7 THEN 2480 
2860 BVTE = BVTE + 8: POKE HDDR,B 

VTE:HDDR = HDDR + 1 
2880 BVTE = 24 -.CVCLE = 2: GOTO 24 

88 



2988 
2918 
2938 



IF SVMBOL 



3 THEN 2938 



BVTE = BVTE + 64 * SVMBOL 
POKE HDDR, BVTE: HDDR = HDDR + 

1 
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2950 IF SVMBOL = OR SVHBOL > 3 

THEN 2986 
CVCLE = 0: GOTO 2480 
CVCLE = lsBVTE = SVMBOL: GOTO 
2480 
3000 FOR Y2=Y-3T0Y+3 STEP 
6: HPLOT X - 1,Y2 TO X + 1,Y 
2: NEXT 

FOR V2 = V - 2 TO V + 2 STEP 
4: HPLOT X - 2,Y2 TO X + 2,Y 
2: NEXT 

FOR V2 = V - 1 TO V + 1: HPLOT 
X - 3,Y2 TO X + 3,Y2: NEXT 

RETURN 

IF KSUE* < > "P" THEN 3150 



2970 
2980 



3010 



302U 

3040 
3080 



3100 

3110 

3120 
3130 
3140 
3150 

3170 



3180 

3190 
3200 
3220 

3230 
3240 

3250 
3270 

3280 

3290 
3300 



3330 
3340 
3350 

Owwu 
T7.7R 

4000 
4010 



4020 

4030 

4040 
4050 



IF CVCLE < > 2 THEN 3120 

POKE ADDR,BYTE:ADDR = ADDR + 
1 

IF CVCLE < > 1 THEN 3140 
BVTE = BVTE + 32: GOTO 3150 
BVTE = 4 

POKE ADDR, BYTE: ADDR = ADDR + 
1 

POKE ADDR, 0: ADDR = ADDR + 1 
: POKE 232, ALU: POKE 233, AH I 
: XDRAW N AT 200,75 

INPUT "SAUE SHAPE <Y/N)? "j 
KI* 

IF KI* = "V" THEN 3220 
N = N - 1: GOTO 2260 
N = N + 1:ADDR = ADDR - ASUE 

IF N - 1 < MAX THEN 3278 

PRINT "HORNING - TABLE FULL 

WITH THIS SHAPE" 

IF N > MAX THEN 3318 

POKE ASUE + 2 * N,ADDR - 25 

6 * INT <ADDR / 256) 
POKE ASUE + 2 * N + 1, INT 

(ADDR • 256) 
INPUT "DONE CV/K)? ";KI* 
IF KI* = "N" THEN 2160 
INPUT "SAUE SHAPEFILE CY/N) 

IF KI* = "V" THEN 3360 

IF KI* = "N" THEN 3379 

GOTO 3310 

PRINT D*;"BSAUE ";NAME*;", 
A"; ASUE;", L";flDDR 

HOME : GOTO 1310 

REM DISPLAY SHAPES. 
I =0: TEXT : HOME : PRINT " 
DISPLAY SHAPES IN SHAPEFILE" 

PRINT : PRINT "CURRENT SHAP 
EFILE AND ADDRESS:" 
PRINT : HTAB 3: PRINT NAME* 

PRINT : HTAB 3: PRINT ASUE 
PRINT : PRINT : PRINT "FOR 
NO CHANGE, PRESS RETURN:" 



4070 



4075 
4080 



4085 

4100 

4110 

4114 
4120 

4140 
4150 



4160 
4170 

4180 
4190 

4200 
4202 
4210 
4240 
4250 

4260 
4270 
4230 
4290 
4300 
4310 
4320 
4330 
4350 
4360 
4370 
4380 
4390 
4400 
4410 
442a 
4430 

4440 
4458 

4460 

4470 

4480 

4500 
4510 

4520 
4530 



' DIFFERENT 
LEN <IN*) = 

1 

1 DIFFERENT 
IF LEN <IN* 



PRINT : INPUT 
FILE? ";IN*: IF 
THEN 4080 
NAME* = IN*: I = 

PRINT : INPUT 
ADDRESS? ";IN*: 
) = O THEN 4100 
ASUE = UAL UN*): I = 1 

IF I = THEN 4114 

PRINT D*;"BLOAD ";NAME*;", 
A"; ASUE 

NHI = 78:NL0 = 32 
AH I = INT <ASUE / 256):AL0 
ASUE - 256 * AH I 
N = PEEK <ASUE) 

UTAB 23: PRINT "PRESS SPACE 

BAR FOR EACH PAGE OF TABLE" 
: GET KEY* 

H6R : POKE - 16302,0 



HCOLOR= 



SCALE= 1: ROT= 



INT <I / 36 



FOR I = 1 TO N 
I MOD = I - 36 * 
) 

IF IMOD < > 1 THEN 4350 

IF I = 1 THEN 4240 

GET KEY* 

CALL 62450 

HPLOT 0,0 TO 270,0 TO 270,1 
80 TO 0,180 TO 0,0 

FOR L = 45 TO 225 STEP 45 

FOR J = 15 TO 165 STEP 15 

HPLOT L,J 

NEXT J,L 

FOR L = 30 TO 150 STEP 30 

FOR J = 15 TO 255 STEP 15 

HPLOT J,L 

NEXT J,L 

IF IMOD = THEN IMOD = 36 
ROW = INT <<IMOO - 1) / 6) 
COL = IMOD - 6 * ROW - 1 
CI = INT <I 
C2 = I - 100 * 
C2 = INT <C2 
C3 = I - 10 * 

POKE 232, NLO: POKE 233, NHI 
CI = CI + 2:C2 = C2 + 2:C3 = 
C3 + 2 

IF CI = 2 THEN 4460 

DRAW CI AT 45 * COL + 5,30 * 
ROW + 7 

IF C2 = 2 AND CI = 2 THEN 4 
480 

DRAW C2 AT 45 * COL + 10,30 

* ROW + 7 

DRAW C3 AT 45 * COL + 15,30 

* ROW + 7 

POKE 232, ALO: POKE 233, AH I 

DRAW I AT 45 * COL + 30, 30 * 
ROW + 15 

NEXT I 

GET KEV*: TEXT : HOME : GOTO 
1318 



100) 

CI 

' 10) 

INT <I / 10) 




Skyles Electric Works 



Presenting the Skyles MacroTeA 



Text Editor 



Fast.. .Fast Assembler Enhanced Monitor 



To help you write your program, MacroTeA includes a 
powerful text editor with 34 command functions: 

Number* lines automaiicallv 

Automatical renumbers lines 

Outputs text file in easv-io-read columns 

COO'W a line or group o* lines to a new 

location. 

Moves a line or group o< lines to a new 

location 

Deletes a line or group of lines. 
Clears the text file. 
Prints a tine or group of lines to 
the PET screen. 

Saves a line or group of lines of text on 
the tape lor disc). 

Loads a previously saved line or group of lines 
of text from the tape (or disc) 
Copies text 'ile modules from one tape 
recorder to the other Stops on specific 
modules to allow changes before it is dupli- 
cated This command makes an unlimited 
length program (text file! practical 

Prints out text Me on printer. 

Assembles text file with or without a listing. 

Assembly may be specified for the object code 

(program) to be recorded or placed In RAM 

memory. 

Does second pass of assembly. Another 

command that makes unlimited length text 

files (source code) practical. 

Runs (executes) a previously assembled 

program 

Prints out the symbol table (label file). 

Gives complete control of the size and location 

of the text file (source file), label tile (symbol 

table) and relocatable buffer. 

Gives complete access to the eleven DOS 

commands; 

PUT GET NEW INITIALIZE 

DIRECTORY COPY DUPLICATE 

SCRATCH VALIDATE RENAME 

ERROR REPORT 

Offers unbelievably powerful search and replace 
capability. Many large computer assemblers 
lack this sophistication 



AUTO 

NUMBER 

FORMAT 

COPY 

MOVE 

DELETE 
CLEAR 
PRINT 

PUT 



DUPLICATE 



HARD 
ASSEMBLE 



Briefly, the pseudo-ops are: 

• BA Commands the assembler to begin placing assembled 
code where indicated. 

• CE Commands the assembler to continue assembly unless 
certain serious errors occur. All errors are primed out 

• LS Commands the assembler to start listing source (text 
file) from this point on. 

• LC Commands the assembler to stop list source (text file) 
(rom this point in the program. 

• CT Commands the assembler to continue that source 
program (text file) on tape. 

• OS Commands the assembler to store the Object code in 
memory. 

• OC Commands the assembler to not store object code in 
memory. 

• MC Commands the assembler to store object code at loca- 
tion different from the location in which || is assembling 
object code. 

Commands the assembler to store an external address 
Commands the assembler to set aside a block of storage. 
Commands the assembler to store data. 

infernal address. 



• SE 

• DS 

• BY 

• SI 

• DE 



Commands the assembler to store s 

Commands the assembler to calculate an external label 
expression 
Dl Commands the assembler to calculate an internal label 
expression 

EN Informs the assembler that this is the end of the 
program. 

EJ Commands the assembler to eject to top of page on 

printer copy. 
SET A directive not a pseudo-op. directs the assemblers to 
redefine the value of a label. 



SYMBOLS 

SET 



Macro Assembler 

The macro pseudo-ops include: 



MD This is a macro beginning instruction definition 

ME This is end Of a macro instruction definition 

EC Do not output macro-generated code in source 

listing. 
ES Do output macro-generated code tn source 

listing. 

conditional Assembler 



Searches text file for defined strings. Optionally 

prints them and counts them. i.e.. this command The conditional assembly pseudo-ops are: 

counts number o< characters in text file. 



MANUSCRIPT 



Eliminates line numbers on PRINT and HARD 
command. Makes MacroTea a true and power- 
ful Text Editor 



BREAK Breaks to the Monitor portion of Macrolea. 

A return to Text Editor without loss o< text 

is possible. 

USER Improves or tailors MacroTea's Text Editor 

to user's needs. "Do-it-yourself" command. 



IEQ 
INE 

IPL 

IMI 



It the label expression is equal 10 zero. 

assemble this block of source code (text file). 

If the label expression is not equal to zero. 

assemble this block of source code (text tile) 

If the label expression is positive, assemble this 

block of source code. 

If the label expression is negative, assemble 

this block of source code. 

This is the end of a block of source code. 



. By having 16 powerful commands: 
A Automatic MacroTeA cold start from Monitor. 

2 Automatic MacroTeA warm start from Monitor. 

F Loads from tape object code program. 

S Saves to tape object code between locations 

specified. 
D Disassembles object code back to source listing. 

M Displays in memory object code starting at selected 

location. The normal PET screen edit may be used 

to change the object code. 
R Displays in register. Contents may be changed using 

PET screen edit capabilities. 
H Hunts mernory for a particular group of object 

codes. 
W Allows you to walk through the program one step 

at a time. 
B Breakpoint to occur after specified number of 

passes past specified address. 
O Stan on specified address. Quit if STOP key or 

breakpoint occurs. 

T Transfers a program or part of a program from one 

memory area to another. 
G Go!' Runs machine language program starting at 

selected location. 
X Exits back to BASIC. 

| Display memory and decoded ASCII characters. 

P Pack (hill memory with specified byte. 

what are the other 
unique features of the 
MacroTeA? 

• Labels up to 10 characters in length 

• 50 different symbols to choose from for each character 

• t0 16 different labels possible 

• Create executable object code in memory or 
store on tape 

• Text editor may be used for composing letters. 
manuscripts, etc. 

• Text may be loaded and stored from tape or disc 

• Powerful two-cassette duplicator function 

• String search capability 

• Macros may be nested 32 deep 

• 25 Assembler psuedo-ops 

• 5 Conditional assembler psuedo-ops 

• 40 Error codes to pinpoint problems 

• 16 Error codes related to Macros 

• Warm-start button 

• Enhanced monitor with 16 commands 




...a completely solid state firmware system ...all in ROM and RAM. No 
tapes to load. The system is available from the time you turn on your PET to 
the time you shut it off. 

15 chips on a single high quality printed circuit board; interfaces with PET's 
parallel address and data bus or with Skyles Memory Adapter. A 
comprehensive 170 page manual is included 

Truly, there is simply no other system of this magnitude at anywhere near 
this price. $395.00* 

•California residents please add 6% or 6.5% sales lax as required 
VISA, MASTERCHARGE ORDERS CALL (800) 538-3083 (except California residents) 

CALIFORNIA ORDERS PLEASE CALL (408) 257-9140 



Skyles Electric Works 



231 E South Whisman Road 
Mountain View, CA 94041 
(415) 965-1735 



Auto-Run-Save, Y-t Plotter, Canary 
for the PET 



A potpourri of programs is presented for the PET. These 
include two obviously useful utility programs and one 
program of dubious utility. 



Werner Kolbe 
Hardstr. 77 CH 54 32 
Neuenhof Switzerland 



When you have several programs 
on a tape, you can only select a 
specific one by entering LOAD 
together with the program name, 
and then you have to wait until the 
program has been loaded before 
you can enter RUN. This was one 
reason for me to develop the Auto- 
Run-Saver which allows you to save 
programs in a form so that they run 
automatically after the load. The se- 
cond reason was, that the Auto-Run- 
Saver can also be used for nearly 
perfect program protection. If the 



stop-key is disabled and other 
possibilities of program interruption 
are avoided, your program cannot 
be stopped and therefore can not be 
changed nor can it be listed. Auto- 
Run-Saver is written for 8K PETs 
with the old ROMs. 



Using the Program 

Auto-Run-Saver mainly consists 
of machine code which is combined 
with a short BASIC loader that gives 



the instructions. After running the 
machine code is located in the last 
page of the 8K memory. You load 
the program that you want to save 
and place an empty tape into the 
cassette unit. Instead of SAVE you 
now enter SYS7636 and your pro- 
gram is saved with the auto-run 
feature. 

Program Description 

The trick of Auto-Run-Saver is, 
that it writes a header on the tape 



R U TO-R U H — S R V E R 

5 POKE 134, 250: POKE 135, 38 :CLR 

1 O FOR I =7936T08 131: RERUN : POKE I , H : NEXT 

I NPUT " ^PROGRAM NAME " ; A* 

fl=LEN<fl*> : IFA>16THENA=16 

FORI = 1TOH:POKE8057+I,HSC<:MIB*<H*,I,1::O 

NEXT 

PRINT: PR I NT "Ml. LORD THE PROGRAM "A$ 

PRINT"M2. PLACE A BLANK TAPE INTO THE CASSETTE 

PRINT ,, 3S3. ENTER SVS7636 

PRINT "MWFQR FURTHER RECORDS REPEAT FROM STEP 2 
DATA165, 124, 141, 140, 31, 165, 125, 141, 145, 31, 16 
DATA249,169, 31,133,250,169, 75,133,238,169, 1 
DATA 1 69 , 22,1 33 , 229 , 1 69 , 2,1 33 , 230 , 32 , 1 03 , 246 
DATA237 , 245 , 1 69 ,111,1 33 , 247 , 1 69 , 31,1 33 , 248 , 1 6 
DATA230, 32, 13,247, 32, 96.- 31,169, 0,133,247 
DATA133,229, 165, 125, 133,230, 76, 13,247, 0, 0, 
DATA 5, 2, 16,251, 96. , 6, 0, 0, 0, 8, 0,147, 3 
DATA 13,147, 0, 32, 32, 32, 32, 32, 32, 32, 32 
DATA 32 , 32 , , 1 69 , 1 69 , 1 4 1 , 1 25 , 2 , 1 69 , 5,141 , 12 
DATA 2 , 1 69 , 4,141,1 24 , 2 , 1 62 , 8 , 1 89 , 1 90 , 2 , 1 57 
DATA 1 62 , 8,1 69 , 32 , 1 57 , 255 , 1 27 , 202 , 1 6 , 250 , 1 42 
DATA 0,147, 82,213, 13, 0, 0, 0, 
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UNIT 



y 


■ 1, 


.133,; 


241 


,169,122, 


133 


•*3 


■ is: 


3,247 


,16 


9, 2,133, 


248 


> 


32 - 
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.12; 


2,133 


.' wvi 


9,169, 31 
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t 


o. 
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1 _, 
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which later advises PET to load 
directly into its keyboard buffer 
(dec. 525 to 536). In our case a 
SYS656 together with a carriage 
return is entered, leading to a small 
machine code routine which is a 
part of the program name. This 
routine enters RUN, Ret. into the 
keyboard buffer, puts the correct 
load addresses into the according 
places of the cassette buffer, 
disables the stop-key and finally 
jumps to the load-routine located in 
the ROM at F3C3. The disassembly 
(listing 2) may serve to understand 
the whole process more in detail. 

The program mainly consists of 
two parts. The first one from 1 F00 to 
1F79 does the SAVE. The second 
one from 1 F8B to 1 FBF is saved as a 
part of the program name and per- 
forms the LOAD and RUN of the 
BASIC program. 

First (1F00 to 1F09) the LOAD 
routine is updated with the actual 
"End of BASIC pointer". Then all 
necessary pointers are set to write a 
header on tape. The name for the 
header is 75 characters long ( hex. 
4B ) starting at 1F7A. The start ad- 
dress in the header is set to 020D 
and the end address is 0216. 

After having written the header, 
the pointers are prepared to write a 
pseudo program on tape, which 
starts at 1F6F and ends at 1F79. 
This "program" will make PET 
assume that 8 Keys were pressed 
during the loading: CLR, S, y, 6, 5, 
CR, CLR. The subroutine 1F60 is a 
waiting loop in order to provide a 
gap between the pseudo program 
and the BASIC program. After 
writing the BASIC code on tape 
(1F4B to 1F5D) the "Auto-Run-Save" 
is complete. 

When loading such a program, 
PET will immediately execute the 
SYS656, which will lead it to the 
code located in the disassembly 
listing at 1F8B. This routine 
prepares the pointers to load the 
BASIC program without header, it 
stores CLR, R, u, CR into the 
keyboard buffer and it disables the 
STOP-key during the loading by stor- 
ing FF into E810 

Protecting a Program 

The Auto-Run-Saver disables the 
stop-key only during the loading. 
Therefore your BASIC program must 
contain the line 

POKE 537, 136 

in order to disable the stop-key dur- 
ing the run. Further on all the INPUT 



fllJTO RUM SAVER 
DISASSEMBLE 



C* 



PC SR 


AC 


KR V 


R SP 


NV#BDIZC 


70ED 28 


53 


41 5 


6 FE 


90100000 


1F00 R5 


7C 




LDfl 


*?c 


1F62 8D 


8C 


IF 


STfl 


$1FSC 


1F05 R5 


7D 




LDfl 


*7D 


1F0? 3D 


91 


IF 


STfl 


$1F91 


1F0H fl9 


01 




LDfl 


=$01 


1F0C 35 


Fl 




STfl 


$F1 


1F0E fl9 


7fl 




LDfl 


=$7fl 


1F10 85 


F9 




STfl 


$F9 


1F12 fi9 


IF 




LDfl 


=$1F 


1F14 85 


Ffl 




STfl 


$Ffl 


1F16 fly 


4E 




LDfl 


=$4E 


IF 18 85 


EE 




STfl 


$EE 


lFlli fl9 


0H 




LDfl 


=$0D 


1F1C 85 


F7 




STfl 


*F7 


1FIE fly 


02 




LDfl 


=$02 


1F20 85 


F8 




STfl 


$F8 


1F22 fly 


16 




LDfl 


=$16 


1F24 85 


E5 




STfl 


$E5 


1F26 fly 


02 




LDfl 


=$02 


1F28 85 


ES 




STfl 


$E6 


1F2R 20 


67 


Ffc" 


JSR 


$F667 


1F2D 20 


71 


F8 


JSR 


$F871 


1F30 fly 


01 




LDfl 


=$01 



1F32 


20 


ED 


F5 


JSR 


$F5ED 


1F35 


fl9 


6F 




LDfl 


=$6F 


1F37 


85 


F7 




STfl 


$F7 


1F39 


fl9 


IF 




LDfl 


=$1F 


1F3E 


85 


F8 




STfl 


$F8 


1F3D 


fl9 


7fl 




LDfl 


=$7fl 


1F3F 


85 


E5 




STfl 


$E5 


1F41 


f\9 


IF 




LDfl 


=$1F 


1F43 


85 


E6 




STfl 


$E6 


1F45 


20 


0D 


F7 


JSR 


$F70D 


1F48 


20 


60 


IF 


JSR 


$1F60 


1F4E 


R9 


00 




LDfl 


= $00 


1F4D 


85 


F7 




STfl 


$F7 


1F4F 


R9 


04 




LDfl 


=$04 


1F51 


OCT 


F8 




STfl 


$F8 


1F53 


fl5 


7C 




LDfl 


$7C 


1F55 


85 


E5 




STfl 


$E5 


1F57 


fl5 


7D 




LDfl 


$7D 


1F59 


35 


E6 




STfl 


$E6 


1F5E 


4C 


0D 


F7 


JMP 


$F70D 


1F5E 


00 






BRK 




1F5F 


00 






BRK 




1F60 


R9 


70 




LDfl 


=$70 


1F62 


8D 


05 


02 


STfl 


$0205 


1F65 


flD 


05 


02 


LDfl 


$@2@5 


1F68 


10 


FB 




EPL 


$1F65 


1F6A 


60 






RTS 





statements must be replaced by an 
appropriate subroutine using GET 
A$. Of course it will still be possible 
to copy your program, i.e. with a se- 
cond cassette recorder, but it will be 
quite difficult to change it in order 
to take out your copyright label. 

Important Memory Locations: 

7C, 7D End of Basic Pointer 

F1 Current device 

F9, FA Start of program name 

EE Number of characters in name 
F7, F8 Pointer to program start 

E5, E6 Pointer to program end 

027B, 027C Start address for load 
E810 To disable stop during load, 
store a number higher than 9 in the 
low 4 bits 

F5ED Writes a header 

F70D Writes without header from 
addresses in F7, F8, E5, E6 
F3C3 Loads program without header 
F667 Sets buffer pointer 

F871 Tests if cassette motor runs 



Using the PET Printer 2022 as a Y-t 
Plotter 

The Pet printer 2022 can easily be 
turned into a Y-t plotter using the 
following short program. 

Listing 

The function to be plotted must 
have the form Y = F(T). The value of 
Y should be calculated in a 
subroutine starting at line 500. Y 
must be between and 480. 

Program Description 

After opening all necessary chan- 
nels the line feed distance is reduc- 
ed by printing CHR$(18) to channel 
5. Then from line 10 to line 35 seven 
consecutive values of the function 
are calculated. The corresponding 
printing positions are stored in D %; 
the column in the printing position 
is stored in S%(l) where I contains 
the row position. The following 
loops from 40 to 100 determine the 
values of the characters that have to 
be transmitted to channel 5 in order 
to program the programmable 
character. For this purpose all 
values having the same printing 
position are combined. The posi- 
tions which were combined are 
marked with D%(J) = 99. Because it 
is not possible to program more 







1F6E 06 


ERK 






1F6C 00 


ERK 






1F6B 00 


ERK 






1F6E 00 


ERK 




E 
co 


s~ 


1F6F 08 


PHP 






1F70 00 


ERK 




o 




1F71 93 


??'? 




o ^ 


1F72 53 


'??'? 




■o 

3 




: 1F73 1)9 36 35 


CMP 


$3536.. V 


CD 
co 
O- 




•' 1F76 36 0D 
1F7S 33 


ROL 
??? 


*0D*X 




>-■ 


1F79 00 


ERK 








1F7A 4E 41 4D 


LSR 


$4B41 






1F7D 45 4F 


EOR 


$4F 






1F7F 46 50 


LSR 


$50 


<D 

T3 




1FS1 52 


??? 




CO 


1F82 47 


"??? 




• 1 




1F83 52 


•-■•-■■-. 




CO 

1— 




1F84 41 4D 


EOR 


■:*4D,X> 






1F86 45 20 


EOR 


$20 


' 


v_. 


: 1F88 20 20 00 


JSR 


$0020 




1F8B H9 fl9 


LDfl 


=$fl9 




1F8D 8D 7D 02 


STfl 


$027D 




1F90 fl9 05 


LDfl 


=$05 




1F92 8Ii 7E 02 


STfl 


$027E 




1F95 fl9 00 


LDfl 


=$00 




1F97 8Ii 7E 02 


STfl 


$027B 




1F9A fl9 04 


LDfl 


=$04 




1F9C 8Ii 7C 02 


STfl 


$027C 




1F9F fl2 08 


LEX 


=$08 




IFfll ED EE 02 


LDfl 


$02EE,tf 




1FA4 3D 0C 02 


STfl 


$020C,X 




1FA7 Cfl 


BEX 






1FA8 D0 F7 


ENE 


$lFfll 




lFflfl R2 08 


LBX 


=$08 




1FFIC fl9 20 


LDfl 


=$20 




IFflE 9H FF 7F 


STfl 


$7FFF,:K 




1FB1 Cfl 


BEX 






1FE2 10 Ffl 


BPL 


$ IFflE 




1FE4 8E 10 E8 


SIX 


$E810 




1FB7 4C C3 F3 


JMP 


$F3C3 




IFEfl 04 


??? 




• ■ 


1FEE 00 


ERK 






1FBC 93 


•-■•-!•-■ 






1FED 52 


?'?'? 








1FEE D5 0D 


CMP 


$0D,;K 
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V-X PLOTTER 

1 OPEN 1 , 4 : OPENS ,4,5: OPENS , 4>€- PRI NT#6 , CHR* CIS) 

2 DlNfl<5>>BX<6>*§X<6> 

3 PRINT#1,CHR*<19> 
5 DT=1 
1 FOR I =0T06 = GETfi* : I FR*= " " THEN20 

PRINT#6, CHR*C24) : CLOSES : CL0SE6 

PR I NT# 1 : CLOSE 1 •• END 

G0SUB500 : REM V=F<T> ...-•■' 

T=T+DT : BK < I ) = V/6 :.S2t I > = Y-6*DE < I > 

NEXTl 

FORI=0TO6 •• IFD";< I »79THEN140 

FORJ=0TO5 = FKJ>=0 : NEXT J 

fl<SK( I > >=2t<6-I ;■ = IFI>5THEN1 10 "-... 

F0RJ=I+1T06 : IFH.';< I ><5>DKCJ?THEN100 "••-... 

A<S2<J>>=A<S*:<J>>+2T<6-J> :DK<J>=99 "•••.... 

NEXTJ 

fi$=" " : FORJ=0TO5 : R*"fl**CHR#<fl<J9 > : NEXTJ 

PRINT#5, A* = IFB?i< I »OTHENPRINT#l , ThECD^':: I >>; 

PR I NT# 1 , CHR* < 254 > CHR* CI 4 1 > ; 

NEXT'I 

PR I NT# 1 , CHR* (. 29 > : GOTO 1 

REM ### VOUR FUNCTION *#*$ 

V= 1 00+ 1 00*S I N ( T/50*it/2 > 

RETURN 
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than one character per line, every 
character that has to be printed in 
the same line must be followed by a 
CHR$ (141) resulting in a carriage 
return without line feed. The pro- 
gram continues to plot the function 
until a key is pressed. 



PET Singing Like a Bird 



A few weeks ago my wife bought 
a canary. The bird was not ac- 
customed to its new surrounding 
and therefore instead of singing, it 
sat in its cage silent and sad. So- 
meone had to keep him company! 



PET could do it. The following short 
program turns PET into a wonderful- 
ly singing canary. You only have to 
connect a speaker (with a small 
amplifier) to the user-port output 
CB2. 



CANARY 






PRINT'S MMMMMM *#*# ECANARYS #*##*" 
PRINT" MMMCONNECT A SPEAKER TO CB2. 
PRINT "MBM PRESS ANY KEY TO STOP" 
H=,S-L=5I:K=i36 

N=65 : P0KE59467 , 1 6 : 14=59464 : RG=59466 

B=N#RND< 1 >+25 •' F=N*RND< 1 > = A=F+B : D=<F/70+H)#RND< 1 >+H : Z=D*300*RNDC 1 >/fl 

P=A/N*H : GET At- : IFA*THENP0KE59467, & ■ END : STOP 

I FRND •:: 1 X . 1 THENFOR I =0TO2E3*RND < 1 > = NEXT 
30 POKERG , L • FOR I =0TOZ : I FRND < 1 > CHTHENPOKERG , K-L 
90 I FRND < 1 ) >PTHEN 1 1 

100 FGRJ=RTOBSTEP-D : POKEM, J = NEXT : POKEM, @ : NEXT : GOTO50 
1 1 O FOR J=ETOASTEPD : POKEM , J : NEXT : POKEM , @ : NEXT : G0T050 
RE ADV. 
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PERFECT AIM 




ATTRACTIVE FUNCTIONAL PACKAGING 
FOR YOUR A1M-65 MICROCOMPUTER 

• Professional Appearance 

• Striking Grey and Black 
Color Combination 

• Protects Vital Components 



ENGINEERED SPECIFICALLY FOR 
THE ROCKWELL AIM-65 

• All Switches Accessible 

• Integral Reset Button 
Actuator 

• Easy Paper Tape Replacement 

EASILY ASSEMBLED 

• Absolutely No Alteration 
of AIM-65 Required 

• All Fasteners Provided 

• Goes Together in Minutes 



MADE OF HIGH IMPACT STRENGTH 
THERMOFORMED PLASTIC 

• Kydex 100* 

• Durable 

• Molded-ln Color 

• Non-Conductive 

AVAILABLE FROM STOCK 

• Allow Three to Four Weeks 
for Processing and Delivery 

• No COD's Please 

• Dealer Inquiries Invited 



TO ORDER: 1. Fill in this Coupon (Print or Type Please) 

2. Attach Check or Money Order and Mail to: 

NAME 



STREET 



CITY _ 

STATE . 
SAE1-1 



PLEASE SHIP PREPAID . 
@ $43.50 each 



California Residents Please Pay 
$46.33 (Includes Sales Tax) 

SAE1-2 PLEASE SHIP PREPAID 

@ $46. 50 each 
California Residents Please Pay 
$49.52 (Includes Sales Tax) 



.ZIP 



SAE1-1(s) 



SAE 1-2(s) 



enclosures 
group 

771 bush street 

san francisco, California 94108 



•TM Rohm & Hass Patent Applied For 



Loading KIM-1 Tapes to AIM 



Here are the routines required to overcome the problem 
of loading KIM format tapes into an AIM when the base 
addresses need to be changed. They permit the user to 
specify from the keyboard the new starting address for a 
load, overriding the KIM generated starting address. 



Larry P. Gonzalez 
Department of Physiology and 

Biophysics 

University of Illinois Medical 

Center 

P.O Box 6998 

Chicago, IL 60680 



The Rockwell A1M-65 is an ex- 
cellent system for the computer 
hobbyist, given its ASCII Keyboard, 
on-line thermal printer, easy-to-use 
I/O chips and timers, and 8K 
monitor. In addition, the AIM is 
KIM-1 compatable and allows 
cassette I/O in KIM format. This 
means that the abundant software 
that is available for the KIM-1 can be 
read via the AIM cassette interface. 
This feature is particularly in- 
teresting to those of us moving up 
to the AIM from a KIM-1. 

In actual practice, however, dif- 
ferences between the memory maps 
of the KIM-1 and the AIM-65 make 
the loading of KIM tapes to the AIM 
more difficult. The problem is in the 
fact that the AIM monitor makes ex- 
tensive use of Page One memory 
locations, while the KIM-1 does not. 
In particular, 80 bytes of AIM Page 
One, beginning at location $0116, 
are used as the tape I/O buffer. So, 
although the KIM-1 can load pro- 
grams into Page One from tape, the 
AIM cannot; KIM tape files which 
load to Page One cannot be loaded 
with the AIM tape load routines. 

The KIM monitor has a feature 
which allows cassette files to be 
loaded with a starting address dif- 
ferent from the load address stored 
with the tape file. This is done by 
specifying "FF" as the file ID. The 
file name and load address on tape 



are ignored and the file is loaded 
with the starting address previously 
entered into RAM ( KIM locations 
$17F5 and $17F6). Unfortunately, 
this feature was not included in the 
AIM routines that load KIM-format 
tapes. This problem of loading 
KIM-1 tapes has been noted by other 
authors (Burnett, 1979; Tripp, 1979), 
but no solutions have been 
presented. 

The program below is a simple 
modification of the Rockwell AIM 
monitor routine to load KIM-format 
tapes to a new load address. Com- 
ments are included in the program, 
so little explanation should be re- 
quired. The New Load Address is 
stored on Page Zero at locations 
$0000 and $0001. These could be 
changed, however, to any conven- 
ient location. The entry point to the 
program is at $0900. The program is 
completely relocatable; all that is re- 
quired to relocate the program is 
that this entry point be changed dur- 
ing assembly. 

The assembly-language source 
version as prepared on the AIM 
Editor is shown in Figure 1, with the 
assembly listing and symbol table 
in Figure 2, and the disassembled 
listing and hex dump in Figure 3. 

Execute the program with the pro- 
gram counter set to $0900. The 
message "To = " will be displayed. 



Enter the new load address followed 
by a carriage return, and then con- 
tinue as for a normal tape load. 
Don't forget to change the tape 
speed ($A408) to the appropriate 
value for your KIM-format tapes ($5A 
or $5B) prior to running this pro- 
gram. 

I have found this program to be 
very useful in gaining access to pro- 
grams which were initially dumped 
to tape from a KIM-1. Now I don't 
have to enter all my KIM programs 
by hand to make them available on 
the AIM, even if the original tape 
loaded into Page One. 

References 

Burnett, J. An AIM-65 user's notes. 
MICR0.1979, 12:5-7 
Tripp, R.M. Ask the Doctor, Part V. 
MICRO, 1979 13:34-36 



Larry P. Gonzalez is an Assistant 
Professor of physiology and 
biophysics at the University of Il- 
linois Medical Center. He has 12 
years in the use of minicomputers 
for real-time data acquisition and 
signal analysis. During the last two 
years he has been developing a 
system using an AIM-65 in the col- 
lection and analysis of elec- 
trophysiological data. 
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Figure I. Source Listing: KIM Tape 
Load to New Address. 



JSR FNRM 



=*?vtfy 








N E i*l RDDRESS 




LORDKi JSR 
LGRDK2 JSP 


TRISbT 


** BV L. P GONZfi 


i E~' 


rpip #■•'* 




PRGE "MEnO 


P V 


CMP #*i6 





I$FLG = *-i?fi41.2 

S AV A=+A42L 

ADDR=$R4iC 
CKSUi1=$B4±E 
PAGE 'SUB -ROUT! HE 

STRRT=iEl8L 

STBVTE=iE4ij: 
GETID=SE425_ 

TQ=*E7fi? 

FNRM=$E9A2 

.: k EERD NEW~RDDRESS 
JSR TO 



LDR RDDR 
STR NEWRD 
LDR fiDDR+± 






LDR #$4B 
SIR INFLG 

.; GET FILENAME RND 



BEQ LUHUK.4 
LORDO JSR RBVTE 
STR SRVR 

.; OLD LORD RDDRESS 

j REPLRCE WITH NEW 
.; LORD RDDRESS 

JSR CHEKRR 
JSR CHEKRR 
LDR NEWRD 
STR RDDK 
LDR NEWRD-*-! 
STR RDDR+i 
JSR BETID 

BNE LORDKI 

L0RDK6 JSR GETTRP 
CMP #•-/ 
BbD. LORDKr' 



JSR PACK 
BCC Jl 



T.4 r-.r-'-.j 

■J- J. yrft 



BNE LORDKS 

JSR STBV ! b 

JMP L0AD_K= 

LOfiDKr JbH RBVTE 

CMP CKSUM 

BEQ J2 

JMP CKERR 

■Jci J b K K b Y I c 

CMP CKSUM-s-I 
BEQ J3 
jpip QKERR 

.-RETURN TO MONITOR 



JMP START 



HHub '' PKU iRHM 



EN 



rrfufc 

. END 



Figure 2. Assembly Listing and Sym- 
bol Table : KIM Tape Load to New 
Address 









fcirii Q ~\ ~: C ; c C C 



■*■ + E; V L . P . 



•■ :-*:- r- / 



MEMORY LOCATIONS 

==6888 INFLQ=fA412 
==0008 SRVR=fR42i 

==8880 CKSUM=fR4iE 



=0080 SsRRi=$bi82 









==8888 STBYTE=*E4±3 












CHEKRR=*E54B 



==8868 !0=$E ; 'R7 

==8888 TRISET=$EDER 
==8888 GETTRP=|:EE29 



MAIN PROGRAM 



==9608 



==yyyy 



•i-— trsofkiS 






20A7hf JbR 



RD1CR4 LDA 8DDR 
3500 STfi NEWAD 
AD1DA4 LDA ADDR+1 



.; CODE FOR Klft-i TflPI 



R260^' 






20A2E3 JSR FNRM 



204DEB JSR CLRCK 
==69iA LOADKI 
20E L, ED JSR T P.;SE' 

2029EE JSR GETTrtr 
C92S CMP #•'* 

TflDK" 



!~v*?b sty 
C91S CMP #$18 
BNE _OADK; 



D0F2 
FhF~- 



= = '0^i^R ' ;iHi/-T 

o u six rt *r jT' ? i~\ z> ! : v n 

; READ BUT IGNORE 
: Q|_[j !_0AD ADDRESS 

; REPLACE WITH NEW 

. i r. n r\ Q -. r-. r ; r- C C 



204BE5 JSR CHEKAR 
284BE5 JSR CHEKAR 
A500 LDA NEWAD 
SD1CA4 STA ADDR 
==093B 

A50i LDA NEWAD-t-i 
8D1DA4 STA ADDR+i 
•;■ fi '"' 5 £ 4 J c , R n - T T \> 

CEJ21A4 CMP SAVA 
DOCF BNE LOADKI 
==0543 LOADKS 
A202 LDK #f02 
==934h LOADKS 

;mp #v 



FOii 



sEw LOADK^' 



9803 BCC Ji 

t '_• ■-' •_• 1_ _■• -.<!!! '_- <\ j_ • •-. ~. 

==0959 Ji 

CA DEH 

D0EE BNE LOADKS 

2013E4 JSR STBVTE 

4C4809 JMP LOADKS 

FO03 BEQ J2 

CD1FA4 CMP CKSUM>± 

F0O3 BEQ J3 

4CS5E3 JMP CKERR 






'0 MONITOR 






ERR0RS= 9fci@0 



SVMBOL TABLE 
ADDR -4iC 
CHEKAR E54B 
CKERR E335 



CKSUM A4iE 
CLRCK EB4D 
CRLF E9F0 
FNRM E8A2 
GETID E425 
GETTAP EE23 
INFLG A412 
JI 0959 
J2 09SL 
J3 0973 
LOADKi 091A 
L0ADK2 091D 
LOADKJ 692A 
LOADKS 0943 
LOADKS 094A 
L0ADK7 0962 
LOADKI 0917 
NEWAD OOOO 
PACK EA84 
RBVTE E3FD 
bAVA A42l 
bTHRT El82 

TO E7A7 
NEWAD 8006 
LOADKI 0917 
LOfiDKi 89iA 
L0ADK2 891D 
L0ADK3 092A 
LOADKS 8943 
LOADKS 894A 

LUHUK7 ilbbL 

J2 096D 

J3 8978 

INFLG A412 

ADDR A41C 

CKSUM A41E 

SAVA A421 

START E132 

RBVTE E3FD 



lHEKBR E54B 
in ^7h7 



PACK. EA84 
CLRCK EB4D 
TAISET EDEA 
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Figure 3. Disassembled Listing 
and Hex Dump: KIM Tape Load to 
Now Address 

<K>*=89S8 
,••'49 

8386 28 JSR E7R7 

8903 RD LDfl 

8906 85 blft 

8988 flD LDfl 

090B 85 STfl 

090D R9 LDfl 



R41C 

88 

S4iX» 

4r A^ O 

fi412 



898F 
8912 
8914 
831? 28 JSR EB4D 



O C?. 



• r--. v 

T ~T: 



7? t* V-: 



E8fl2 



£.<0 

2y 

28 



631D 

0928 
0922 
0924 

8928 
892R 20 
032D 8D 
8338 28 
8333 20 
83i6 flo 
8338 8D 



JbR 



eg ppi 



D0 BnE 

F8 BEG 



fclJfcrl 

EE23 

tt *7--' fl 

832R 
#16 
E 83lfi 



033D 


8D 


bTR 


R41D 


0340 


28 


J S R 


C ..^ -" C. 


0343 


CD 


CMP 


R421 


0946 


D8 


BNE 


031 7 


0948 




C w /•, 


#02 


894R 


28 


JSR 


EE29 


894D 


CS 


Li'ir 


5t {J •"" 


394F 


F8 


S in '--i 


*3 i^ D el 


8951 


1 .' d 


JSR 


ii n o *r 


y3S4 


QG 


BCC 


-■ .7 j ? 


8956 


4C 


~ >■$ 7"* : 


C T-- O c . 


8959 


pa 


DEK 




895R 


D0 


Df.ip 


834fl 


09bC 


•" o. 


J'-p 


C .-■* -t ~* 


095F 


4C 


JMP 


?l94R 


@ 'J O il' 


.-* r^ 


JSR 


— ~ ;" — m 


8965 


L- u 


•"" M p 


'■ ' ~T — Lb 


6968 


F y 


ppn 


B3SD 


896R 


4C 


T M P 


E385 


896D 


•- |7< 


JSR 


c "7* c r*; 


8978 


-• r-. 

L-y 


PMP 


R41F 


89^3 


F0 


O C f J- ! 


0978 



8918 40 EB 
831C ED 28 
6328 C3 2fl 



h8 66 






b t n 
1 S« 

ICE 



E3FD 

E548 

E54B 



8375 4C JHP E385 
6378 26 JSR E3F8 
637B 4C JMP E182 



< > 8384 1C R4 85 






u _•• £. -? 

8328 


r c ? 


p ~ 


28 


FD 


632C 


p J- 


p n 


?'t 


R^ 


8338 


28 


H-rS 


p ~ 


28 


6334 


"TO 


E5 


QC 


08 


8338 


O L-' 


ii »„• 


R4 


R5 


8338 


61 


8D 


-L i-"' 


rr*4 


0340 


28 


il ._: 


E4 


C'T'- 
L- i.-' 


0944 


.-* •: 


Wil 


f*: •"?-: 


CF 


0948 


R ~ ; 


P : 


~ ; Ck 


C J 7 


@9 4C 


C L_ 


L'J? 


OC 


P L- 


:~J :-, IT :- 

*-* _~ ■_■: f 


'* *t 


&y 


R4 


En 


:7-S Q ^ .- 


i?Q 


83 


48 


o=r 


8958 


w ~* 


HP 


n >^ 


w c 


8958 


28 


•* "? 


E4 


^4-1 . 


8966 


48 


@ 9 


26 




0964 


j__. 


r- f •. 


-L 


R4 


0968 


r *- ; 


63 


.1 '-• 


.— ; E" 


8966 


C_- 


26 


rD 


c _■■ 


6978 


■"■ pi 


•t p 


H— ■ 


F© 


6974 


0"? 


4 L- 


Qcr 


w~' 


6978 


26 


CT ;Tn 


E3 


4- C 


6378 


O '■ 


C •* 


vipj 


Pf'H 



033B R5 LDfl 01 


< 


■- 6318 12 R4 R2 66 






AIM-65 




EPROM PROGRAMMER FOR AIM-65 




ROM EXPANSION FOR AIM-65 


$86.50 

Programs 2716, 2516, and 2532 


Accessories 


$33.50 

Eliminates need to remove Assem- 


EPROMs. 




bler or Basic ROMs. 


Selectable blank check and verify. 




"Straight-thru" design retains use 


Can copy existing EPROM. 




of Expansion connector. 


Software utility routines to relocate 






Sockets for up to 8K additional 


your object code to EPROM ad- 






ROMs and EPROMs. 


dress. 

Does not interfere with cassette. 




MCC 


Available with Zero-Insertion-Force 
sockets ($49.00). 






20076 CHAPMAN AVE 








ORANGE, CALIF. 92669 


QUAD ANALOG I/O FOR AIM-65 


PARALLEL PRINTER PORT FOR AIM-65 


714 633-0245 


$165.00 


$57.00 






Four input and four output chan- 


Interfaces Aim-65 to Centronics 




nels. 


Parallel Port. 


SEND FOR ADDITIONAL 


0.1% accuracy input and output. 


Compatible with over 34 printers 




Wide bi-polar input and output 


from different manufacturers. 


PRODUCT INFORMATION 


ranges. 


Complete with connecting cable. 




Signed BCD or binary operation. 


Compatible with Aim-65 Monitor, 


AT NO CHARGE 


Complete driving software includ- 


Assembler, and Basic. 




ed. 




CALIFORNIA RESIDENTS ADD 6% 





* 

* 
* 

* 
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* 

* 

* 
* 

* 

* 
* 

* 
• 
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END FRUSTRA TIONU 



FROM CASSETTE FAILURES 
PERRY PERIPHERALS HAS 
THE HDE SOLUTION 
OMNIDISK SYSTEMS (5" and 8 ") 

ACCLAIMED HDE SOFTWARE 

• Assembler, Dynamic Debugging Tool, 
Text Output Processor, Comprehensive 
Memory Test 

• Coming Soon— HDE BASIC 
PERRY PERIPHERALS S-100 PACKAGE 

Adds Omnidisk (5") to 
Your KIM/S-100 System 

• Construction Manual — No Parts 

• FODS & TED Diskette 

• $20. +$2. postage & handling. (NY residents 
add 7% tax) (specify for 1 or 2 drive system) 

Place your order with: 
PERRY PERIPHERALS 

P.O. Box 924 

Miller Place, N.Y. 11764 

(516)744-6462 

Your Full-Line HDE Distributor/ Exporter 

••••••••*••••*•*••*•*•* 
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Presenting Ihe Oilier Side o/lhe Apple II' 
INDEXED FILES 

IS AM DS is an integrated set ol routines lor Ihe creation and manipulation 
ol indexed files ISAM-DS provides capabilities comparable ;o those on 
large mainframes. You can rapidly retrieve records bv key value or partial key 
value (retrieves any record in a 200 record file. 60 char/record, in less than 3 
seconds compared to a maximum of 38 seconds for a DOS sequential filel. 
Files never have to be reorganized. Duplicate key values may be used. 
Records may also be retrieved in sequence. ISAM-DS routines are easily in- 
tegrated into Applesoft programs - they use less than 3K RAM plus an in 
dex table 

Requires: Disk, Applesoft (32K POM or 48K RAMI 
550 

STRUCTURED BASIC 

PBASIC-DS is a sophisticated preprocessor for structured BASIC. Now 
you can gam the power of PASCAL-like logic structures at a fraction of the 
cost Use all regular BASIC statements plus 11 commands and 11 new 
statements/ structures IWHILE, UNTIL. CASE. etc. I PBASIC-DS can be 
used to develop INTEGER or APPLESOFT programs. It is a great way to 
learn and use structured logic concepts. 

Requires: Disk. Applesoft (32K ROM or48K RAMI 

$35 

(Texas residents add 5% tax) 

Decision Systems 

P.O Box 13006 
Denton. TX 76203 

'Apple II *s a registered trademark of the Apple Computer Co. 



Frustrated? One-board Micro-C's too expensive, Insufficient I/O 
lines for full control, General purpose Micro an overkill, Fixed 
power supply requirements, costly development systems, if 
available, lack of user flexibility? 

The MICROsport Microcomputer (MMC), in addition to being a 
complete microcomputer on a 414" X 614" pc board, is the 
nucleus of a full hardware/software development system. Soft- 
ware can be developed for the MMC using any 6502-based com- 
puter The In-Circuit Emulator (ICE) permits full MMC soft- 
ware/hardware debugging, then adding the EPROM Programmer 
Adaptor, any single + 5V EPROM, such as the Intel-type 2716 or 
2758, can be programmed without additional equipment. The 
MMC is the ideal dedicated controller for use in control/monitor 
systems, laboratory experiments, timing, intelligent interfaces, 
security systems, and other applications requiring a low cost 
controller. 

Features 
CPU: MPS6503, RAM: 1 Kbytes, EPROM: Socket for Intel-type 
2716 or 2758. (User supplied), I/O: 2 MPS6522 VIAs: 32 I/O lines, 8 
edge detector/control lines, 4-16 bit counters, 8 user-defined 
pins. Serial: 20 mA loop onboard, Interrupts: Power-on and 
manual reset, non-maskable and maskable, Power +5V 
regulated or 9— 20V unregulated AC or DC, All ICs socketed, 
LED power on indicator, CMOS-RAM w/battery back-up optional. 
Options: In-Circuit Emulator; EPROM Programming Adaptor; 
MMC Development Model MMC/03D with zero insertion force 
sockets (3); EPROM Programming Services; and application 
software development. 

Prices: Kits from $89.00 Application units from $119.00 

MMC/03S: Complete development system including MMC/03D; 
MMC/03ICE; MMC/03EPA; and software $250.00 (offer good until 
Dec. 31, 1980). Checks or money orders; No C.O.D..'s. For further 

info write or call: 

R.J. Brachman Associates, Inc. 

P.O. Box 1077 

Havertown, PA 19083 

(215) 622-5495 



W*** CONTINUOUS 
PRINTOUT PAPER 

MINI-PAK 

• Clean, carbonless paper 

• Finest quality blank white paper 
with Vt" detachable marginal holes 
botn sides, leaving a standard 814 x 
1 1 sheet 

• Duplicate and triplicate forms 
make clear copies with no carbon 
required. 

• Ideal for letters, reports, work 
copies 

• Available in one, two or three plys. 

• Lightweight-only 14 pounds! 

• Packed 1 500 sheets for 1 part, 750 
sheets-2 part and 500 sheets-3 
part. 

'per carton!* 

REGARDLESS OF HOW MANY PLYS 

TO ORDER SEND CHECK OR MONEY ORDER 

VISA AND M/C ACCEPTED -SEND ACCOUNT NUMBER. 

EXPIRATION DATE WITH ORDER 

•ADD SSOO FOR UPS AND HANDLING CHARGES 

(MASS RESIDENTS ADD 5% SALES IAXI 




COMPUTER FORMS CO. 

34 CHELMSFORD STREET 
CHELMSFORD. MA 01824 

(DEALER INUUIRIES INVITED) 



iBBAPfUI 



The Original Inexpensive 
paper GRAPHICS PAD for 
the APPLE II and 
BELL & HOWELL 
MICROCOMPUTERS- 



ART 

ARCHITECTURE 

BUSINESS 

DISPLAY 

DESIGN 

EDUCATION 

LAYOUT 

GRAPHS 

SCIENCE 

STATISTICS 

ELECTRONICS 

TECHNICAL 

TRAINING 

...AND FUN! 



T.M. 
TEXT / LORES PAD 
Formats either the TEXT or LO-RES 
screen. Features AUTOMATIC TEXT 
CENTERING. 

HI-RES PAD 
HI-RES screens without expensive 
Graphics Tablet Includes most-used 
Graphics commands. 
TRUE screen proportions . . . NOT 
just graph paper. EXCELLENT for 
precision applications. 

EASY TO USE 
Effective even at the elementary 
school level. 

Simple HPLOT statements made 
these pictures . . . 




Available at your local 
dealer . . . Ask to see the 
Demonstration Software 

ANOTHER CREATION 
FROM 

HMFH SSIEMH 



GRAPPLE PADS: 
$3.00 per 50 sheet pad 

DEALER INQUIRIES INVITED 

Distributed by: 

SOLUTIONS. INC. 

3740 Colony Drive 

San Antonio, Texas 78230 

512) 690-1017 



•APPLE II is a registered TRADEMARK ot Apple Computer Co. 

•BELL & HOWELL MICROCOMPUTER Is a registered TRADEMARK of 

BELL & HOWELL, INC. 

■GRAPPLE Is a TRADEMARK of SOLUTIONS, INC. 
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'DISK UTILITY PACKAGE' 

DISK UTILITY PACKAGE IS A COMBINATION OF SIX POWERFUL UTILITY 
PROGRAMS THAT PROVIDE THE USER UITH A MEANS OF PROGRAMMING 
MASTERY. THESE PROGRAMS ARE USED WITH THE APPLE'S DISK OPERATING 
SYSTEM AND DISK II DRIVE TO PROVIDE A COMPLETE SELECTION OF 
VERSATILE UTILITIES. THE PACKAGE INCLUDES: 

•DISK SPACE 

* REH DELETER 

* INTEGER PROGRAM LISTER 

« CONTROL CHARACTER LOCATER 

* CATALOG SECTOR CORRECTION PROGRAM 

* ENHANCED APPLE EDITOR 

REQUIRED: 32K, DISK II DRIVE. APPLESOFT AND INTEGER BASIC 
$24.95 ON DISK 

'ASTEROID MINER' 

YOU ARE AN INDEPENDENT MINER IN A DISTANT GALAXY AND HAVE JUST 
DISCOVERED THE LARGEST URANIUM STRIKE SINCE THE RUSH IN THE YEAR 
2012. BUT BE CAREFUL, THE JUPITER ANNEX HINING COMPANY WANTS YOUR 

CLAIM AT ANY COST THEY HAVE EMPLOYED MANY ROBOT DRONES TO 

TRACK YOU AND DESTROY YOU BEFORE YOU CAN REACH THE NEAREST MINING 
CENTER TO FILE YOUR CLAIM. YOU MUST OUT MANUVER THEM IN YOUR SMALL 
SPACE CRAFT ARMED WITH ONLY A SINCLE USER CANNON. 

ASTEROID MINER IS AN EXCITING, FAST -MOVING GRAPHICS GAME THAT USES 
ALL THE SKILL THE PLAYER HAS TO OFFER. 

REQUIRED: 16K, APPLESOFT BASIC 

$14.95 OM DISK, $9.95 ON CASSETTE 

ALL ORDERS PROCESSED AND SHIPPED WITHIN 48 HOURS. 



NOW PRINT APPLE 

HIRES- GRAPHICS NORMAL, 
INVERSE, IN 2 SIZES. 

TX-80 PRINTER 

by EPSON 



® 




$795. 



THE TX-80 IWTRIX PRINTER ^j, QRAFTRAX 

SPEED: 58 LPM, 125 CPS 

INTERFACES: Parallel standard IEEE 488 and serial RS-232 
optional, (Apple type parallel card and 
cable s 99.) 

CHARACTER SET: Full 96 Character ASCII Set (upper and 
lower case with expanded print). 

PRINT HEAD: 100 x 106 character life expectancy. 

GRAFTRAX OPTION* full dot addressable graphics (480 dots/ 
line) with Automatic print head protec- 
tion on dense pictures plus form feed 
and skip over perforation. 
FREE! APPLESOFT-WARE for graphics dump included 

•UPDATE EARLIER TX-80's TO GRAPHICS for $99. 

Masterchrage t. Visa O.K. 

DEALER INQUIRIES INVITED 

Computer Corner of New Jersey 



439 RL 23. Pompton Plains, N.J. 07444 

PRICES SUBJECT TO CHANGE 



(201)835-7080 



Compact 



Another member of the "Stripper" family - programs to 
strip REMarks from BASIC programs ■ this version works 
on the AIM and does the stripping in place. It does not 
require the use of disk or cassette tapes. 



Steve Bresson 
1302 Strawberry Ln 
Hanover, MD 21076 



The "Apple Stripper" Program in 
MICRO 23:11-12 removes the REM 
statements from a program using a 
BASIC program and a disk file. I 
would love to use this method, but a 
4K AIM-65 with a tape recorder 
would make for a long wait. The 
assembly program given here was 
programmed slightly before "Apple 
Stripper", and does the compaction 
in place. 

Compact is a program to strip out 
blanks and REMs from a BASIC pro- 
gram. This is done to save space 
and increase the operating speed of 
a large or heavily documented pro- 
gram. 

The program is run as follows: 

1) Load in COMPACT. I put it in 
high memory for the 4K AIM. 

2) Initialize BASIC. Make sure it 
does not overlap COMPACT. 

3) Escape back to the Monitor. 

4) Run COMPACT. On the AIM, 
just hit <FL>. 

COMPACT operates by scanning 
through the BASIC program looking 
for quotes, blanks, and REM tokens. 
Blanks are stripped out as they are 
encountered. All text between 
quotes is ignored. A REM forces one 
of two things to be done. If the 
character counter is zero, then the 
REM is at the beginning of the line 
and the whole line is removed. A 
non-zero character count indicates 



the REM is placed after text, so only 
the remainder of the line is removed. 
In all cases, pointers to the loca- 
tions to be removed are passed to 
subroutine PACK, which does the 
actual deletion. 

PACK performs the nontrivial task 
of closing up the BASIC program to 
overwrite the unwanted string. Then 
the BASIC pointers are changed so 
that BASIC still knows where the 
program is located. 

The final operation in PACK is a 
jump to $B329. This is a subroutine 
in the BASIC ROM which relinks the 
line pointers of the program. The 
NBLP (New BASIC Line Pointer) 
subroutine expects the "standard" 
BASIC line format of: 

12 3 4 n 

:lo, hi:lo, hhbasic text :00: 

LINE LINE END OF 

PTR NUMBER LINE 

It scans through each line, first 
checking the line Pointer high byte 
for a $00, which would indicate the 
end of the program. If the line 
pointer is not zero, the line is 
scanned until a $00 is found. That 
address plus one is the beginning of 
the next line and is placed in the line 
pointer. The NBLP pointer is moved 
to the beginning of the new line and 
the process starts over. 

For those of you who do not have 
the AIM, an assembly language 



NBLP is also listed. Assuming your 

BASIC stores its programs in the 
same format as the AIM, only a cou- 
ple of things need be known to make 
this program run on your machine: 

1) The address of the Beginning 
of BASIC (BOB) pointer. 

2) The address of the Top of 
BASIC (TOB) pointer. 

3) A couple of 2 byte locations 
in page for temporary use 
as pointers. 

By plugging these values into the 
listing you should not (hopefully) 
have any problems. 

Program Listing 

1) Assembler output of "COM- 
PACT". 

2) Start up of BASIC so that top 
of memory is not affected. 

3) Crossed out PGM. skip this. 

4) BASIC PGM to be compacted. 

5) Test run to show program out- 
put. 

6) List of BASIC Pointers at 
$0075 — top of BASIC before 
compaction. 

7) <[> <F1> KEY RUN 
COMPACT 

8) RUN of Compacted PGM. 

9) List of Compacted PGM. 

10) New top of BASIC PTR 
= $0261, OLD = $02 LAC! 

11) Change of M.L PGM to use 
'NBLP1' instead of BASIC 
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ROM PGM. 

12) BASIC test PGM with addi- 
tional lines. 

13) Run of COMPACT with ' 
NBLPV 

14) New Listing. 

J* 









(D 



IMPACT 

:: = i 000 

:chiphct 

:W MCMfii 



SIEVE BRESSON 
-3.@2 STRBMBERRV 
-A MOVER.. MD 2107 



=: — i~1 j"; j,"j pi P H Q — ■ t| "7 ~' 

==60i@ REM=$8E 



~00©0 

:=S10C 



R573 LDA BOB 

35FE STA LINE 

R574 LDfl BOB-M 

S5FF STfl LINE+1 

4CCF0E JMP Ml 

C8 INV 

==0hCC MA 

==0ECF Ml" 

R088 L.DV #fi 



6trn 
CS 

B1FE 
5 ■! '<& 1 






R804 LE> V #4 
= —Q ED D —'-' 

204AOF JSR QUOTE 
= =-6EE6 M3A 



Peri 



DffK 



C98E CMP #REM 
-015 BEQ MS 
0928 CMP #•' 
D0F2 BNE M3fl 
10280F JSR ADVLD 



==8EFL : M5fl 

20380F JSR ADVLS 

28S20P JSR PACK 

A5FB LDfl FLAG 

1 306 SHE MSA 

20538F JSR LTl 

*C170F JMP MSB 

2O280F JSR flDVLD 



==@F17 


M 6 1 : 






A080 


LDV 


#8 




B1FE 


LDA 


(LINE) 


v 


656A 


STfl 


SflV 






INV 






L- b 






BlFE 




(LINE) 


y 


S5SB 


STfl 


SftV+1 












iiyb^itlr 


-J JT : K 


PACK 




iiPPPf^p 


T HI p 


hi •' 













==0F28 flDVLD 

2O400F JSR ADVL 
35A8 STA DEL*! 
86fl? blK DEL 
SS RTS 
==0F30 ADVLS 

?S6fi STi : < SAV 

c c K i b 

==0F38 ADVLL 

28400F JSR ADVL 

35FF STA LINE+1 

8SFE STX LINE 

68 RTS 

==0F48 ADVL 

==8F41 ADVL1 
98 TVA 

A5FF LDA LINE+1 
€988 ADC #8 



==9F4fl 


QUO" 


> 


C 92 2 


CMP' 


#•'"■ 


>80S 


D'=jr.| 


Q2 


48 


PHfl 




A5FA 




QFLC 


4988 


•H. ; _ ; i\ 


#*8£ 


SOFA 


CTQ 


QFLC 


68 


PLA 




==0F5£ 


;." ~i 





HHHPl 



LL>rl fly 



86H7 si;- DEL 

S6FF ldv LINE+1 

86A8 STx DEL+1 

SO RTF 
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. -ACK VIC. 2. 25. 38. SL 

j DEL: HOLDS DEL FiREFi 

START flDDR 

.; SflV : HOLDS END C 

EL AREA+i ADDR 

==0F62 PACK 

AnfiH LDA DEL+i 



B5SD 


sTA 


GTu*l 


A5A7 


1 DA 


i-'hL 














— 1 • ! — ■ 


— • s— •— ■ 




ESS A 


SBC 


SAV 


io 


CLC 




£ ~.~?~. : 


ADC 


TOB 


f .- — If— 


' t\ '. .' 


T ;"i Q 


?ib f D 


L L l ft 


! '•_' i- ! 


866fi 


'■— T V 


SAV 


= = g p 7 9 




































85 b i J 


b 1 H 


(J i u 


Q C "7 fil 


LDA 


TO B + 1 


69FF 


ADC 


#£FF 




STA 


TDB+i 


E5A8 


Z : D L- 


DEL*! 


Rh 


TAX 




-. Q 


ct;- 




_i- o 


_■ *- •-■ 




A5A7 


LDA 


f-. C : 


==8F82 






E575 


SBC 


■ U D 


nn 


TO' : 





B083 BCb PK1 
ES IH'ti 

==8F8A PKi 
1.8 CLC 
655A ADC SAV 
SS83 BCC PK2 

:_8h" LDA (SAV), V 
4 1 -- If STA ■'. li i '■ .• t 

':.¥ inv 

r;fp T Mi - ' : ^! ft V i" 1 

".JMP NEW' BASIC LINE 
PTR SUBR j 



84FC STV TMP 

A00i" LDV #1 
i END OF P8H?. 

F8iD BEQ NBLP4 
A084 LDV #4 
.; NO ! LOOK FOR $80 
==8FB4 NBLP3 

B1FC LDA (TMP), V 
D8FB BNE NBLPi 
C8 INV 

i CALC -JDRESS 

AA TAX 
HflSfi LDV #8 
91FC STA (THP),V 

CHANGE BASIC PTR 
A5FD lDA TMP+1 

£908 ADC #0 

C8 INV 

91FC STA (TP1P), V 

O £ C P C T v T hi D 

3?FD S T A THP+i 
98DD BCC NBLP2 
==8FCF NBLP4 



T "THIS IS 






%-a p p 7 ?.: 

Trrf :: 



68 GOTC 



; PkIRJ 

78~ : REM N" 



(5) 



RUN 








-U" ::, 


i — * j 


1 ihS 1 




DONE 


■ 


Top of BASIC 




fi) 


675 


$1 02 01 


R 


£1- 


879 




y 


(7) r . 








TH^T 


RAN 


THE TEST 





(8). 



*LIST t 

i H=5:B=7 

TO 8 = 6. PR I NT " DONE 

68 G0T078 

78 END Tod of BASIC 

.' — § — > 

(lO)Cfl>=8875 61 02 7fc 0; 
; > 0079 ?€• 02 Hi y 





" sr ''' 


HfctffU 

END 






ERR0RS= 


ti y i^i f j 




(2) 


"io - 


-T7P-7 -r 


7 *= ~-\ 




322? E 


TES PR 


EE 




tft 65 BASIC 


V -L . J- 




{" v : '.: =7R 


! 1 O '-- C 


1A 68 



(11) 



JMP NBLPI 
!;b?>-FH0 48 A3 OF A* 



(12) - N 



.REPLACEMENT FOR 

==8FR3"nBLF1 
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-+« L-=i: 
4 5 D = 



:m fi^nrn 









RE Si KK-KV 



CONE ! 
(13) 

- 

- _ n 

fM^LIST 

T P'~T 






Sfeve Bresson is a 1977 graduate of 
the University of Akron with a 
B.S.E.E. He currently works for the 
Dept. of Defence in Baltimore, 
Maryland. He has experience in For- 
tran, A PL, CHPL, 8080, Z80, and 
6502. 



Steve owns an AIM-65 and has 
many plans for it, but hasn't gotten 
iround to building any of them yet. 




BOX 120 

ALLAMUCHY, NJ 07820 
201-362-6574 

inc. 



HUDSON DIGITAL ELECTRONICS INC. 

ANNOUNCING: 



'AID' 



The Advanced Interactive 
Disassembler 
designed by 

p 
c Progressive 

'§ Computer Software 

The Advanced Interactive Disassembler(AID) 
is the latest in a series of comprehensive 
HDE disk-based software development tools 
for KIM, TIM, SYM and AIM microcomputers. 

AID is a resident, two pass disassembler that 
creates a TED compatible source file and 
assigns labels to all address references. 
Addresses external to the object file limits 
are defined as equates in the source. 

AID BUILDS SOURCE FILES FOR 
ALL YOUR OBJECT PROGRAMS 

AID will save interim files to disk thereby 
facilitating the creation of source files of vir- 
tually any object program limited only by the 
size of the program, the symbol table and the 
user defined source file buffer. 

AID is available from HDE or the following 
dealers for $95.00. 



Progressive Computet Software 
405 Corbm Road 
York, PA 1 7403 
(7 17) 845-4954 

Johnson Computers 

Box 523 

Medina. Ohio 44256 

(216)725-4560 

Falk-Baker Associates 

382 Franklin Avenue 

Nutley, NJ 071 10 

1201)661-2430 



Perry Peripherals 

P.O. Box 924 

Miller Place. NY 1 1 764 

(516)744-6462 

Lux Associates 
20 Sunland Drive 
Chico. CA 95926 

(916)343-5033 

A-B Computers 

1 1 5-B E Stump Road 

Montgomeryville. PA 18936 

(215)699-5826 
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Attention 

BARGAIN HUNTERS 

Receive Hundreds of Classified Ads 
Like These Every Month 



HARD DISK DRIVE Diablo Mod 31 
1 2 MByte std. density- Includes 
power supp. and cable, rack mount 
slides, amd manual Excellent 
condition $450. C*S U ~"^01 



condition, » 1 ivy . .v. 

■L ti-~^cJ>~ Ten CPS Serial y 

m echanisn^ as _; year pld j^ 

S £ V , St fHEATHKIT H-11/DEC LSI-11 
^ system, 32K Byte storage, reader 1 
punch, video terminal, complete 
software. Cost $4500 assembled, 
$3500 kit. Like new. Sell lor $2250. 
305-962-6677. 2058 Griffin Rd., Ft. 
Lauderdale, FL 33312. 



7 F /°i5 M U: ' nt t data < Perki "-Elmer) 
7/16 Mini with 32KB core, front 

H a s n , e L 50A H PVVR supplv w-2 

HS tape reader, mterfaces for LP, 2 
TTY), and RS-232 (Full duplex 



5t-.\ 
250 



■ ■■-,, o.iu RO-^j/ (|- u 

programmable). Includes manuals 

' 35 ^v^e7m^omat.on alpha 

,,, if, k-word core memory, KIL 
1 P 6 F '-R Modified Mod ASR-33 TTY 
Manuals, utilities, assembler* . WC 
many option boards - 16 bit I/O 
DriSr. 16 bit I/O, Asynch modem 
contr 64 bit output, 10 bit A/D 
DM. Fairly complete documen- 
tation. Up and running in ortran 
Not much more than TTY at Siouo. 
Herb Sauer, 303-494-8724. 



FOR SALE: Heath H9 video ter- 
minal, excellent condition, $175 or 
best offer. You ship [214] 962-4484 

^^T^rAT^cTo^liK 4 

r T mor V board without memory 
chips and Phi deck controller board 
Ikit^^as^embledor not working) ^ 

n a ' a th ™ 6 TRsJn* ho '^ more 

dS^^P'etewSr* 60 «"*■ 
S^SoasetS^ 



COMPUTER SHOPPER, the new buy, sell, and Irade 
publication, is ready lo help you with the latest infor- 
mation on personal, small business and large-system 
computers, accessories and software. 

Each ad-packed issue is full of bargains you are 
looking for. Included are ads from individuals 
throughout the United States who are selling their 
good, pre-owned equipment just so they can trade-up 
to new equipment coming on the market. 

But, COMPUTER SHOPPER'S bargains won't be 
yours unless you subscribe. This useful, money- 
saving publication can become your way to com- 
municate with other buyers, sellers, and traders all over the nation. 

Whether you are a hobbyist or a part-time user, COMPUTER 
SHOPPER will put you in touch with the nationwide computer 
marketplace in time tor you to take advantage of bargain oppor- 
tunities. 

Have something to sell? A COMPUTER SHOPPER subscriber pro- 
bably wants to buy it. 

Looking for a part, component or even a complete system? A 
COMPUTER SHOPPER subscriber probably wants to sell it. 

COMPUTER SHOPPER is THE marketplace for anything in com- 
puters and is read by thousands of people who are ready to buy. 

COMPUTER SHOPPER offers a unique format in which classified 
ads are categorized for fast location ot specific items. Combining 
this with low individual ad rates — 10 cents a word — 




makes it the ideal place for buyers and sellers to com- 
municate And, its mix of individual, deaier, and 
manufacturer ads enable subscribers to find what 
ihey want at the best price possible. 

COMPUTER SHOPPER will work for you in other 
ways. too. If you are just thinking about getting into 
computers, it can help you learn product availability 
and prices before you make a decision. And, through 
the timely ads, COMPUTER SHOPPER will keep you 
abreast of changes in the market which could create 
bargain opportunities for you. 

BUT COMPUTER SHOPPER cannot work for you unless you 
subscribe. 

Want to look us over first? We'll give you your first issue FREE 
and then bill you tor the next 12. If you are not convinced COM- 
PUTER SHOPPER suits your needs, just write "cancel" on the in- 
voice and return it. 

And, to let COMPUTER SHOPPER start working for you right now, 
with a paid subscription we'll also give you a FREE classified ad to 
sell your pre-owned equipment or to lind equipment you want. 

If you don't need to use the free classified ad now, use it. anytime 
during your subscription. 

Subscription: $10/year, 12 issues plus your lirst free one. Bank 
cards accepted Money back guarantee. 



The Nationwide Marketplace loi Computer Equipment 

CamPUTBR SHOWSR 

P.O. Box F22 • Titusvllle, Florida 32780 
Telephone 305-269-3211 

MasterCharge or VISA orders only, call TOLL FREE 800-327-9920. 



A C1P and H14 System, Part 2 



A previous article provided the information required to 
interface an H14 printer to an OSI C1P computer. This 
article provides the software necessary to drive the 
printer. 



William L. Taylor 

246 Flora Rd. 

Leavittsburg, OH 44430 



In a previous part of this series of 
articles I promised some software 
to further the use of the C1P and a 
printer. In my system the printer is a 
Heath H14. Yours may be of another 
manufacture. In any case, this soft- 
ware should support your printer if 
you have used the modifications to 
your C1P and have interfaced your 
printer. This program will help you 
with your task of writing all forms of 
business and personal letters. 

The program in listing 2 gives the 
user of the C1P and the H14 system 
the needed software to allow the for- 
mat of business letters. This pro- 
gram will allow the user to develop 
letters, which are in the modified 
block form. The program allows the 
user to store the heading; the com- 
plimentary close; and the identifica- 
tion as a permanent part of the pro- 
gram. That is, your street address in 
this heading, the closing, compli- 
ment such as "Sincerely yours" and 
your name as the identification. The 
inside address; the salutation; and 
the body of the letter are entered on 
query from the computer. 

To begin, the program at line 30 
through 65 is used to develop the 
heading; the inside address, and the 
salutation of the letter being writ- 
ten. In the example program, lines 30 
and 35 contain the heading. This 
heading is stored in Strings and is 
a permanent part of the program. 
You will have to enter your own ad- 
dress in these two lines. This data 



will be printed out when you call for 
a printout of your letter. At lines 37 
and 40, you will be asked for the 
month which will be stored in A$(4). 
Line 40 gets the date and year. The 
date and year is stored in the 
numerical varibles E and Y. Lines 45 
through 55 are used to collect the in- 
formation for the inside address and 
the salutation. This data is stored in 
Strings. These Strings are: A$(9), 
A$(5), A$(6), A$(7), and A$(8). These 
Strings are not a permanant part of 
the program. That is, each time the 
program is run these strings will re- 
quire new data and must be input by 
the user. These are all input 
statements. Lines 60 and 65 form the 
complimentary close and the iden- 
tification for the letter being com- 
posed. This data is permanant and 
will have to be entered when you 
load the program for the first time. 
To continue, the program at lines 70 
through 210 is where the body of the 
letter is entered by the user. This 
data or letter text is stored in String 
arrays. Up to 256 lines of text can be 
entered and stored in memory ar- 
rays. B$(l) holds each line of text. 
That is, as you type in each line of 
text, that line will be placed in B$(l). 

The variable I contains the line 
number for the text data whch goes 
into B$. If I equaled 1 then B$(1) 
would become position B$(1) exc. 
The length of each line in the text for 
the body of the letter is set to a max- 
imum of characters. If you type 
more characters in the line than the 



set length the computer responds 
with overwidth and the line of text is 
deleted. You will have to type in the 
line again. The statement at line 140 
sets down a pointer to indicate 
where a line will end. This pointer 
should not be exceeded. At line 180, 
line 180 is the INPUT statement for 
the text input if all the letter text has 
been completed. Line 210 causes a 
RETURN through the body routine if 
the letter text has not been com- 
pleted. When the body of the letter 
has been completed, and the user 
types the escape key(&) the program 
branches to line 5000. The routine at 
lines 5000 through 6000 is used to 
insure that the letter is placed cor- 
rectly on the page. This subroutine 
checks for the number of lines that 
the user has entered into memory. 
The body of the text is read and the 
number of text lines are stored in 
the variable L, the variable L is 
checked against a constant of 32. 
The value of variable L is subtracted 
from 32 and stored in the X variable. 
The X variable is then divided by 3. 

The final value of X is used to space 
the letter properly on the page. That 
is, the paper will be advanced the 
amount that is equal to Vi X. For ex- 
ample, if you only had 6 lines of text 
in the body of your letter, this value 
would be subtracted from 32. The X 
variable then would be 26. After 
dividing the X Variable by 3, X would 
be approximately 8. This value will 
advance the paper 8 spaces before 
the heading and date are printed 
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out. The routine from 5000 to 5070 
obtains the final value for the X 
variable. The routine from 5080 
through 5095 generates the line feeds 
for the paper advance. This is ac- 
complished with a PRINT statement 
in a FOR-NEXT loop. At line 6000 a 
RETURN is executed and the pro- 
gram returns to line 1000. 

Beginning at line 1080 the main 
body of the letter text is retrieved 
from the array and printed out to the 
screen and the printer. This is done 
with the FOR-NEXT loop at lines 
1080 and 2000. At line 2007 a gosub 
is executed. The subroutine at 4000 
is used to produce the correct 
amount of spaces between the body 
of the letter and the complimentary 
close. This subroutine uses the 
value in the X variable in the same 
manner as the routine at line 5000. 
At this point, Fl should explain the 
statement at line 4000. The state- 
ment at line 4000 uses the keyword 
LOAD followed by the keyword 
POKE, 515,0. The statement LOAD: 
POKE 515,0 actually returns the C1 P 
to the fast CRT routine. The LOAD 
command expects an INPUT from 
either the cassette recorder or the 
keyboard, but immediately we turn 
off the LOAD command by POKEing 
the flag at 515 with zero. This 
disables the LOAD command and 
returns the program to line 4030. 

On return from the subroutine at 
4070 the complimentary close and 
identification are printed in the let- 
ter. At line 2033 we again return the 
program from a SAVE mode to the 
regular program execution with the 
statement LOAD: POKE 515,0. From 
this point the program jumps to line 
3000 where the user will be asked if 
more copies of the letter are 
desired. The "Letter Writer" pro- 
gram has some features that are 
hidden from the quick observer. The 
main feature is that the text editing 
feature of the C1P's ROM BASIC 
can be used to edit the text when 
entering the lines in your letter. This 
is done with the use of Control C 
and Control P. If a letter in your text 
was incorrectly inserted, you may 
change the letter by typing a control 
O. This will delete the last letter 
that you entered. Also, if a complete 
word was mispelled simply count 
the letters in the word and type Con- 
trol O the correct number of times 
that were in the word. Now type in 
the correct word or correct spelling 



OK 
LIST 

1 REM LETTER WRITER BV Ul. L. TflVLOR 

2 REM AUGUST 15, 1979 

3 PRINT" LETTER WRITER " 

4 PR I NT : PR I NT : PR I NT 
16 PRINT" DATE VEflR AND LETTER TEXT MUST BE 

ENTERED" 

36 R*<2>="246 Flora Road" 

35 A*<3> = "Lea',nt.tsbur-:3, Ohio" 

I NPUT " MONTH " ; A* < 4 > 

INPUT" TODAVS DATE AND VE AR " ; E , V 

I NPUT " COMPANV " ; A* < 5 > 

I NPUT " STREET ADDRESS " ; A* < 6 ) 

INPUT" CI TV, STATE ZIP";A$<7> 

I NPUT " PERSON "ifit <C S > 

I NPUT " GREET I NG " ; A* < 9 > 

R* a O > = " S i ncet-e 1 y , " 

fi*<l>-"Mr. William L. Taylor" 

D=64 



40 
45 
47 
49 
50 
55 
60 
65 
70 
SO 
90 

100 

110 
120 
140 
ISO 



— .i_'fc> 



DIM B$a> 

PRINT 

FOR 1=1 TO 256 

PRINT I 

POKE 54 1 S 1 + < D-50 > , 94 
lee INPUT B*'::i> M 

190 IF LEN':<B*<I>>>>D THEN PRINT H OUERWIDTI-( , ?I = I-l 
2O0 IF B#< I >-">*' THEN 500O 
210 NEXT I 
250 GOTO 5O0O 
1000 SAUE 

1O05 PRINT TAB<50>;A*<2> 
1O10 PRINT TAB'::50>;A*':3> 
1015 PRINT TAB<50>;A*'::4>;E;V 
1 020 PR I NT : PR I NT : PR I NT : PR I NT 
1O30 PRINTA$<5:> 
1035 PRINTA*-::6:> 
1040 PRINTA*':7> 
1050 PR I NT ."PRINT 
1055 PRINTA*<8:> 
1060 PRINT: PRINT 
1O70 PRINTA*<9) 
1075 PRINT: PRINT 
10SO FOR J=l TO 1-1 
109O PRINTB*'::J> 
200O NEXT J 
2O07 GOSUB 400O 
2O10 PRINT 

2O20 PRINT TAB<50:>;A*<10> 
2025 PR INT: PR I NT : PR I NT 
2030 PRINT TAB<50:>;A*<i;> 
2035 LOAD: POKE 515,0 
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for the word that was mispelled. If a 
complete line in the letter were 
needed, you simply type a Control P. 
This will delete the entire line of 
text. This program also allows the 
use of the C1P's lower case letter 
feature. That is, when you wish to 
enter lower case letters you need 
only to release the Shift-Lock key to 
shift into lower case letters mode. 
This will allow you to use both 
capital and lower case letters in 
your text. 

In part one of this series I gave 
the reader the necessary hardware 
information to allow the C1P to 
function in a 300 Baud RS232C 
mode. The use of the C1P and a 
Heath H14 Printer was described 
along with the modifications to the 
printer to be used with the 
Challenger C1 P. Some software was 
given. This article has been an ex- 
tension of that article. I hope that 
this series has been of interest and 
will be a tool to help you further im- 
prove your computer system and 
software. 



2040 

3060 
30 1 

3020 
3030 

4000 

4030 
4840 
4050 
4060 
4070 

5000 
5010 

5020 
5030 
5040 
5050 
5060 
5070 
5080 
5085 
5090 
5095 

6000 



GOTO 3000 

PRINT" DO VOU WANT ANOTHER COPV. 

TVPE VES OR NO" 
INPUT Q* 

IF G*="VES" THEN GOTO 50SQ 
END 

LORD: POKE 515,0 
FOR fl=l TO ¥. 
SAME 
PRINT 
NEXT fl 
GOTO 2010 
L=0 

FOR ,T=1 TO 1-1 
L=L+1 

PRINTBSCJ) 
NEXT J 

IF L=32 THEN 1000 
IF LX32 THEN X=32-L 






FOR R=l TO K 

SRUE 

PRINT 

NEXT R 

GOTO 1000 



OSI SOFTWARE FOR OSI OSI 

We Have Over 100 High Quality Programs For Ohio Scientific Systems 



o 
s 

I 




ADVENTURES AND GAMES 

Adventures - These interactive fantasies will fit 
in 8KI You give your computer plain english 
commands as you try to survive. 

ESCAPE FROM MARS 

You awaken in a spaceship on Mars. You're in 
trouble but exploring the nearby Martian city 
may save you. 

DEATHSHIP 

This is a cruise you won't forget - if you survive it! 

Adventures $14.95 Tape or 5%'' Disk 
$15.95 8" Disk 

STARFIGHTER $5.95 

Realtime space war with realistic weapons and a 
working instrument panel. 

ALIEN INVADER 6.95 (7.95 for color and sound 

Rows of marching munching monsters march on 
earth. 

TIME TREK $9.95 

A real time Startrek with good graphics. 

BATTLEPAC $17.95 

For the battlebuff. Contains Seawolfe, Starfighter. 
Bomber and Battlefleet. 



TEXT EDITORS FOR ALL SYSTEMS!' 

These programs allow the editing of basic 
program lines. All allow for insertion, deletion, 
and correction in the middle of already entered 
lines. No more retyping. 

C1P CURSOR CONTROL (Text Editor) $9.95 

Takes 166 bytes of RAM and adds, besides text 
editing, one key instant screen clear. 

C2P/C4P CURSOR $9.95 

Takes 366 BYTES to add PET like cursor 
functions. Enter or correct copy from any location 
on the screen. 

SUPERDISK $24.95 for 5" $26.95 for 8" 

Has a text editor for 65D plus a great new 
BEXEC", a renumberer, search, a variable table 
maker and Diskvu - lots of utility for the money. 

We also have 25 data sheets available such as: 

IMPLEMENTING THE SECRET SOUND PORT ON 
THE C1P $4.00 

HOW TO DO HIGH SPEED GRAPHICS IN BASIC 
$4.00 

HOW TO READ A LINE OF MICROSOFT $1.00 

JOYSTICK INSTRUCTIONS AND PLANS F OR 
C1P$3.00 

SAVING DATA ON TAPE $4.00 
THE AARDVARK JOURNAL 

A tutorial bimonthly journal of how to articles 
$9.00 

Our $1 .00 catalog contains a free program listing, programming hints, lists of PEEK and POKE locations and other stuff that OSI 
forgot to mention and lots more programs like Modem Drivers. Terminal Programs, and Business Stuff. 

Aardvark Technical Services 1 690 Bolton, Walled Lake, Ml 48088 (313) 624-631 6 



And lots, lots, lots morel 
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7TION, STRATEGY, AND FANTA 
for the SERIOUS games player 
and his APPLE II 



Brain Games - 1 demands ingenuity. 

Two players bombard radioactive material with protons 
and electrons until it reaches critical mass and sets up a 
Nuclear Reaction. Dodgem requires you to outmaneuver 
another player to get your pieces across the board first. 
Dueling Digits and Parrot challenges your ability to 
replicate number and letter sequences. Tones lets you 
make music with your Apple (16K) CS-4004 $7.95. Strategy 
Games and Brain Games are on one disk (16K) CS-4503 
$14.95. 

Strategy Games - 1 keeps games players in suspense 

You and your opponent trail around the screen at a 
quickening pace attempting to trap each other in your 
Blockade. A 7 category quiz game will certify you as a 
Genius (or an errant knave!). Beginners will meet their 
master in Checkers. Skunk and UFO complete this classic 
collection (16K) CS-4003 $7.95 

Know Yourself through these valid self-tests. 

Find out how your life style effects your Life Expectancy 
or explore the effects of Alcohol on your behavior. Sex 
Role helps you to examine your behavior and attitudes in 
light of society's concept of sex roles. Psychotherapy 
compares your feelings, actions, and phobias to the 
population's norms and Computer Literacy tests your 
microcomputer savvy. A fun and instructional package 
(16K) CS-4301 $7.95. Know Yourself and CAI Programs 
are on one disk (16K) CS-4503 for $14.95 



IMAGINE 





You're in command in Space Games - 1. 

Maneuver the TIE fighters into your blaster sights and 
zap them with your lasers to save the rebel base camp 
from annihilation in Star Wars. Rocket Pilot is an ad- 
vanced real time take off and landing game. High resolu- 
tion graphics, exploding saucers and sound effects add to 
the suspense as you repel the Saucer Invasion. Finally, a 
bonus graphics demonstration, Dynamic Bouncer (16K) 
CS-4001 $7.95. Space Games and Sports Games are on 
one disk (16K) CS-4501 for $14.95 



ACTION 



Sports Gomes - 1 puts you in the Apple World Series 

Take the field in the Great American Computer Game. 

Mix up your pitches to keep the batter off balance. Move 
your fielders to snag the ball before he gets to first. Balls 
and strikes, double plays, force outs, and errors let you 
play with a realistic strategy. Also in the line up— Slalom, 
a championship downhill ski race, Torpedo Alley, and 
Darts (16K) CS-4002 $7.95. Space Games and Sports 
, __ Games are on one disk (16K) CS-4501 for $14.95 

\7s easy to order SENSATIONAL SOFTWARE for your Apple II. 

Sent) payment plus $1.00 shipping and handling in the U.S. (S2.00 foreign) to 
Creative Computing Software, P.O. Box 789-M. Morristown, N.J. 07960. N.J. residents 
add $1 00 sales tax Visa, Master Charge and American Express orders may be called in toll 
tree to 800-831-8112 (in N.J. 201-540-0445). 



XREFER 



XREFER stands for 'cross reference'. The BASIC pro- 
gram presented here premits the output of an assembler 
to be sorted and cross referenced. The cross reference 
listing can be a very valuable tool when debugging 
machine language programs. 



Joel Swank 
4555 SW 142nd #186 
Beaverton, OR 97005 



When programming in assembly 
language the quality and features of 
the assembler being used can make 
a great deal of difference in how 
well the project proceeds. That's 
one reason professional program- 
ming departments are willing to 
spend a lot of money to buy and sup- 
port large and powerful cross 
assemblers for their programming 
efforts. Most computer hobbyists 
though can only afford to use soft- 
ware that runs on their own 
machines. These assemblers for the 
most part, offer only the most basic 
features. 

I bought MICRO-ADE(I) as an 
alternative to programming my MOS 
Technology KIM-1 microcomputer in 
machine language. MICRO-ADE is a 
large step up from machine 
language. It is also a large step 
down from the IBM-370 assembler 
to which I an accustomed. I soon 
found that most of the more advanc- 
ed functions (expression evaluation, 
macros, relocatability, and condi- 
tional assembly) I could easily get 
along without. One thing I sorely 
missed though was the sorted 
cross-reference table. A cross- 
reference table is invaluable when 
debugging or modifying a program, 
especially when the program was 
written by someone else. 

I implemented MICRO-ADE as my 
system assembler by modifying it to 
read source files from, and write ob- 
ject files to my disk system. It ac- 



cepts unnumbered source files 
created by my system editor and 
generates its own line numbers. It 
creates object files that are loaded 
by a special load program. It has 
everything I need except a cross- 
reference table. To remedy this 
situation I wrote XREFER. XREFER 
is a program in MICROSOFT 
BASIC(2). It reads the same source 
files as MICRO-ADE, and produces 
a sorted label table giving the line 
number of the definition of each 
label and the line number of each 
reference to each label. 

Implementation 

The main task of a cross- 
reference program is data storage. 
It must be able to handle a variable 
number of labels, each with a 
variable number of references. The 
most obvious way to allocate the re- 
quired storage in BASIC is to dimen- 
sion 3 arrays, a one dimensional ar- 
ray for labels, a one dimensional ar- 
ray for definitions, and a two dimen- 
sional array for references. This will 
work, but one quickly runs into a 
problem. Most labels are referenced 
between 1 and 5 times in a assembly 
language program, but in most pro- 
grams there will be one or more 
labels that are referenced 10, 20 or 
more times. To dimension the 
reference array large enough to hold 
the maximum number of references 
would use a large amount of 
memory. This would also waste a 
large amount of memory since most 



of the memory allocated for labels 
with fewer references would be 
unused. Allowing for a large number 
of references for each label also 
reduces the number of labels that 
can be handled in available memory. 
To dimension fewer than the max- 
imum would result in an incomplete 
cross-reference. This problem can 
be overcome by dividing the 
reference storage into two 2 dimen- 
sional arrays. The first has an ele- 
ment for each entry in the label ar- 
ray and each element has room for a 
few references (5 or 6). The second 
is used as an array fo overflow ar- 
rays. It has only a few elements but 
each element has room for a lot of 
references (20 or 30). The reference 
array for a label is filled, the next 
available overflow array is chained 
to it, and all subsequent references 
to that label are stored in that 
overflow array. This allows more ef- 
ficient use of available memory. 

Larger source files will no doubt 
exceed available memory no matter 
how efficiently it is used. No matter 
how much memory is bought there 
will be a program that needs more. 
Is there no way to make the program 
handle an infinite amount of data? 
Yes there is! In this case the range 
of labels accepted into the table in 
any one reading of the file is limited. 
Then the file is read multiple times. 
Each reading will extract a different 
part of the entire table. For instance 
there may be only enough memory 
to store one-third of the labels in a 
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large assembly language program. 
XREFER can be run 3 times on the 
same source file. Labels beginning 
with A-G are cross-referenced in the 
first pass, H-S in the second, and T-Z 
in the third. The resulting 3 tables 
can then be joined to form a com- 
plete cross-referenced with enough 
passes of the file (Actually XREFER 
is limited to 32767 lines by the in- 
teger variables used to store the line 
numbers). Setting a range on the 
labels also allows operands other 
than than normal labels to be 
crossed-referenced. Immediate 
operands, absolute hex addresses, 
and data assignments can also be 
extracted if desired. 

While the file is being read for the 
cross-reference table there is some 
other useful data that may be 
gathered. A table of opcodes and a 
count of their occurrences would 
also be interesting. For the MICRO- 
ADE defaults several addressing 
modes and optimizes others. Some 
address modes are implicit to the 
opcode. This means that those ad- 
dress modes cannot accurately be 
counted. Nevertheless the address 
modes that are counted correctly 
(IX, IY, IM) are worth the small space 
required. 

XREFER is logically divided into 
four sections, initialization, data 
collection, sort and print, and 
subroutines. Listing 1 is the 
XREFER program listing. The in- 
itialization section prompts the user 
for options, allocates storage and 
opens the input file. The arrays for 
data storage are dimensioned ac- 
cording specifications input by the 
user. This allows the user to tailor 
memory usage to the source file be- 
ing processed. When the cross- 
reference table option is selected 
XREFER prompts the user for the 
size of the label table, the number of 
references per label, the number of 
overflow arrays and the length of 
the overflow arrays. Determining the 
numbers to enter for each of the 
above is a matter of trial and error. 
The data collection subroutines 
have built-in overflow detection to 
aid the user. Mesages are printed 
when any of the arrays overflow. 
There are also overflow counters to 
record the number of times data is 
lost. These will give the user an idea 
of how much to increase the size of 
the arrays. When a program has too 
many labels for the available 



storage, the number of labels ac- 
cepted can be limited by decreasing 
the range of labels accepted. It may 
take several runs to determine the 
correct parameters for a large pro- 
gram. XREFER also allows the user 
to select whether or not any of the 
three tables is built on a given run. If 
a table is not selected its storage is 
not allocated. The last thing re- 
quested is the filename. After the 
file is opened the assembler 
language source statements are 
read one at a time and the three 
parts (label, opcode and operand) 
are extracted, the comment field, if 
present, is ignored. The label is in- 
serted into the label table and its 
definition line number saved. The 
opcode is stored and counted and 
the address mode extracted. The 
comment field, if present, is ig- 
nored. The label is inserted into the 
label table and its definition line 
number saved. The opcode is stored 
and counted and the address mode 
extracted and counted if present. 
The operand is then used to add a 
reference to the reference array (A 
new entry is made into the label 
table if necessary). The line 
numbers are generated as the lines 
are read in. When the end of the in- 
put file is reached, the sort and print 
section of XREFER is entered. 

The Shell-Metzner sorting technique 
is used. Shell-Metzner requires a 
few more statements than the ubi- 
quitous bubble sort but it executes 
in about a tenth of the time for a 
table of 200 labels. Any sorting 
algorithm requires switching of the 
data elements it is sorting. The 
labels in the label table in XREFER 
are connected logically to a data 
structure of definitions, references 
and overflow arrays. Switching 
labels would destroy this logical 
structure. Labels would end up with 
the wrong references. Moving the 
actual data around would require a 
lot of time and memory. Instead a 
special array (SRT%) of pointers is 
sorted. Before the sort, SRT% is in- 
itialized to 1, 2, 3,. ..etc. must be 
dimensioned at least as large as the 
number of elements being sorted. 
The sort comparison is made bet- 
ween elements indexed by SRT%. 
Then the pointers in SRT% are swit- 
ched if necessary instead of the ac- 
tual data. After sorting is finished, 
the SRT% array is used to index the 
data for printing. The labels are 
printed in alphabetical order with 



their definitions and references. The 
same technique is used for both the 
opcode table and the label table. 
The address mode table is a static 
table and is not sorted. Ater all the 
requested tables are printed 
XREFER gives the user the oppor- 
tunity to repeat the printing section 
to get another copy of the tables. 
XREFER can also be restarted at 
line 7200 to print the tables. 

Operation 

Listing 2 is a sample run of 
XREFER. XREFER prompts the user 
for each parameter. In this run the 
arrays were purposely dimensioned 
too small to show the error 
messages generated when they over 
flow and what to change to correct 
problem. Note that answering 'N' to 
the ' SYMBOL TABLE (Y or N)?' will 
cause all other questions about the 
symbol table to be ommited. Also 
answering to 'NUMBER OF 
OVERFLOW ARRAYS?' will effec- 
tively delete overflow processing 
from the program. 

I use XREFER to document all of 
my larger assembly language pro- 
grams. I use the cross-reference 
often during testing. With it I can 
quickly locate every reference to a 
data area and every place a 
subroutine is called. XREFER takes 
longer to generate the cross- 
reference listing than MICRO-ADE 
takes to assemble the same source 
file but the resulting cross-reference 
table is well worth the time. 

(1) MICRO-ADE is an assembler for 
the 6502 microprocessor. It is sold 
by MICROWARE Ltd. 27 Firstbrook 
Rd. Toronto, Ontario, Canada M4E 
2L2. It does not use the standard 
MOS Technology syntax. 

(2) XREFER is written in 9 digit 
MICROSOFT BASIC. It is distributed 
by MICRO-Z company Box 2426 Roll- 
ing Hills California 90724. It has 
been extended to add disk I/O 
capability. 

LISTING 1: XREFER implemented in 
MICROSOFT BASIC for the 6502 
microprocesser. XREFER uses stan- 
dard BASIC syntax except for the 
disk I/O related commands. The disk 
I/O commands are implemented as 
standard BASIC commands with the 
postfix character # . DIM # 
allocates a buffer for the file. GET 
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# opens the file for input. END # 
sets the statement number to be ex- 
ecuted when the end of the file is 
reached. INPUT # reads line of the 
file. Variables followed by a # are 
integer variables. Integer variables 
are used wherever possible to save 
storage. Integer arrays require only 
2 bytes of storage per entry while 
floating point arrays require 5 bytes 
per entry. 

Listing 2: A run of XREFER 
genterating all three tables for a 
small assembly language program. 

I 1ST 

1001! HEM XREFFH 

1 IBM "CM 

12011 HEM 

1301! MEM INITIALISATION 

1400 HEM 

1500 DIM* 1 

1600 TKUE — 1 iTALbE-O 

17011 PRINT "FNTFH OPIlONb" 

18!!!! INPUT "SYMBOL TA0LF(Y OH N)";ANUS 

19BII IF ANbSo"Y" THEN 3000 

2BBI! INPUT "NUMOFH OF SYMBOLS It) OIMENb IQN" ;NUM 

2101! INPUT "HUMBEH r.r REFERENCES It) DIMENSION" I Xil 

220U input "rrnrH nuvnrn of pvphflo* ammays",ov 

23BI! if rv<-a then 260 b 

2400 input "rtiTrH i ength nr nvniFLO* ahmayl" 

2500 OIM HOVFL*,! i'V.OL) 

2601! INPUT "SYMBOL HANCF L 0" • Kl S 

27011 INPUT "SYMBOL MANGE HI";HI|$ 

28 01! iTH-THUE 

29011 TlIM LABELSlNUM), |iFF%(HUU). HEF%(HL)M,XH) 

3000 INPUT "CPCOOE TABLE! Y CIS N)";ANSS 

3100 IF ANS$ <> "T" THEN 340B 

32BI! DIM nODFS(6fl), CCNT%(6B) 

33bii ct%. thue 

34bi! input "aoohesb mode table! y oh n)";anbs 

3500 if anss <> "t" then 4BBb 

36011 niM MODES! 9), •TNT%{9) 

3701! UT%. THUC 

3800 MODES! 7)-"^" : MOOES (8) -"A" : MOOES! 9) -" >'DNE" 

3900 FOHI.0 TO 6:M0DCS( l>-Min$("AYAXZX£YIHIXlY",I«2»t,2) ;NFXI 

4000 INPUT "ENTER FILENAME" ;i IS 

41BII IF NOT TT% AND NOT l.T% THEN (1500 

420 A.6B 

43011 IF "UM>A THEN A.NUM 

44B0 OIM SHT%(A) 

4500 I INNO%. 1 

46B1I CET# 1 ri$ : FNDiC 1 r:0T0 72BB 

4700 REM 

4800 HFM DATA COLLECTION 

4901! HEM 

5001! INPUT* 1 c INFS 

5100 IF LINES-"" OH LEFTS(LINES,3)-" " TuFN ',700 

5200 REM CET I ABEL, r PCOBE AND nPERAND 

5300 CObun 1010B 

54011 HEM bTOHF LABEL 

5500 IF NOT I T% THEN 5900 

56BI! IS- LEFTS! I ABELS. 1) : IF rj>.HLS AND TS<-HHS THEN r.tlbUn 17Be 

5701! HEM blOHF HEFEHTNCE 

5801! T$.MID$(CIPS. 1, 1) :IF TS>.H|.S AND TS<-Hh$ THEN COSUB 20500 

5900 IF COOES-"" THEN 6700 

6000 VOOES-MIDS! CODES, 4, 2) 

6100 IF NOT CTK, THEN 64B0 

6200 HEM COUNT OPCODE 

630U GObUFl 23200 

6400 IF NOT l'T% THEN 67B0 

65B0 REM COUNT UODE 

660!) COSUB 2*3000 

6700 LINNOKi-l INNOVH 

680I! GOTO 5000 

69B0 REM 

7001! HEM bORI AND PRINT DATA 

7100 HEM 

72011 IF NOT ITU, THEN 1170B 

7301! COSUtl ZiSZl 

7401! HEM 

7500 REM SORT XHEF TABLE 

7600 REM 

llll r .° R Fw TG NUM:IF '"BELS! !)<,"" THEN NEXT 

7800 IW.INT(I-I) : m-M, 

79011 M*.M%/2 

8000 if m%-0 Then 9500 

8100 K%-NV-M% 



8200 J%. 1 

8300 1%-J* 

8400 L%-I%»M* 

8500 IF LABELS! SRT*( !%))<. LABELS! SRT*( L*>) ) THEN 898 

8600 TMP%-SRT%(L%):bHT%(L%)-bHTK,(I%) : SRT%<I%).TMP% 
870 I%-I%-M% 

8800 IF I%>.1 THEN 8400 

8900 Jfc-JVH 

9000 IF j%>k% THEN 7900 

9100 COTO 8300 

9200 REM 

9300 REM PRINT XHEF TABLE 

9400 REM 

9500 1-1 

9600 PHINT:PHINT "SYMBOL" ."DEFINED" , "REFERENCES" 

9700 S-SRT%(I):IF LADEL$(S) . "" THEN 117B0 

9800 PHINT LABELS(S) , OFF%( S) , 

9900 FOR J.0 TO XH 

10B00 IF HEF%(S,J).0 THEN 11200 

10100 IF POS(X),65 THEN PHINT : PRINT" " , " " . 

1S200 IF REF%(S,J)>0 THEN 11000 

1B300 L — REF*(S, J)-1 

10400 FOR K-B TO DL 

1B500 IF H0VFL%(l.,K)-B THEN 11200 

1060B IF P0S(X)>65 THEN PHINT ;PHINT"~ ,"" . 

10700 PRINT R0VFL*(L,K)- 

1B8B0 NEXT 

10900 GOTO 11200 

11000 PRINT REFtCs. J) ; 

11100 NEXT J 

11200 PRINT 

11300 I-I+liIF loNUU THEN 9700 

11400 REM 

11500 REM BORT OPCODE TABLE 

11600 REM 

11700 IF NOT CT% THEN 15100 

11800 G08UB 2480 B 

11900 FOR 1.1 TO 60:IF CODES ( I) <>" " THEN NEXT 

12008 n»-int(i-i) mm.in. 

12100 U*.M%/2 

12200 IF M%.0 THEN 13700 

12300 K«aM-M 

124B0 j*. 1 

12500 I%.J% 

12600 L%.I%*M% 

1270B IF CODE»(8HT*(I*))<.ronES(UHT*(L*)) THEN 13111 

12800 TMP%.BHT%(|.%) |8RT*(L%).8HT*(I%) I BHT%( 1%) . TMP% 

1290B 1%-1%-u* 

13B00 IF It>.1 THEN 1260a 

13100 Jt.A+1 

13200 IF J%>K* THFN 12100 

13300 ^0T0 1250B 

13400 REM 

13500 REM PRINT rPCODF TABLE 

1360B REM 

13700 PHINT iPHINT "OPCODE USAGE TABLF" 

13800 J.iiFOR 1.1 TO 60 

17900 rpfl K.I tn g 
14000 TS-CODEStSHIHf j)) 
141110 IF TS-"" THEN 15100 

!«!! I; IEN( .! $,:IF T<3 Then TS.TSt" ":GDTO 14230 

14300 PRINT ":TS:CCNT*(bHT%(j)). 

14400 J.j»l 

1450B NEXT K 

14600 PRINT 

14700 NEXT I 

14800 REM 

1490B HEM PHINT ADOHESb MODE TAB! E 

150U0 HEM 

15100 IF NOT l.:T% THEN 162B0 

lllll 2SI;S? 1 ?l , P ,1 * r ""'"'"r" "ODE OCCURENCES" 
15300 M00E$(7)- I :MODES(B)."A " 
154110 J.0 
) 15500 FOR K.1 TO 3 

15600 IF J>9 THEN 1620B 

15700 PHINT " ":>:ODEJ(j);MCNT%(j>, 

15BB0 J.J+1 

15900 NEXT 

16000 PHINT 

161110 COTO 155B0 

162110 PHINT :PHINT:PHINT: INPUT "HEPE AT " • ANSS 

16300 IF ANSS.-Y" THEN 720B 

164110 FND 

165110 REM 

16600 REM SUBROUTINES START HERE • • • 

16700 REM 

1680B REM STORE LABEL 

1690B HFM 

17000 FOR 1-1 TO NUM 

17100 IF LABELS! I). LABELS THEN 17600 

17200 IF LABELS! I)-"" THEN 17500 

17300 NEXT 

17400 01-DH1:PHINT"T0O MANY LABELS" : RET URN 

17500 LABELS! IJ.LABELS 

17600 DFF%(I).LINND% 

177H0 return 

17BH0 HEM 

17900 REM PARSE FOR I ABEL OPCODE AND rPEHAND 

18000 HEM 

181I1B CODES-"" :0H$."" 
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HUN 



182BB LABELS-"" : IF LEFTS! LINES , 1 ) <> " " 'HEN 185B8 H 

183BB K.2 HREAK IN 17100 

1840B COTO 191BB 

185BB FOR K.I TO 6 OK 

186BB IF MIDS(LINE$,K,1)- " " THEN 19BB8 U||»i 

1870B LABELS-LABELS-f'.'IOSlLINES.K.D HUN 

iBBBB next ENTER OPTIONS 

189BB RETUHN r - " c ur -LLJixui 

19BBB k-k+1 SYMBOL TABLE(Y OR f.')? Y 

Wzll Ts-Mios(L?NES?j.i):iF is-- T„EN 2bibb NUMBEH OF SYMBOLS TO DIMENSION? 110 

Mill co D eI:cqdes T "ts ,96 " B NUMBER OF REFERENCES TO DIMENSION? 4 

wbb next ENTER NUMBER OF OVERFLOW ARRAYS? 4 

19700 fob*k-j to j*6 ENTER LENGTH OF OVERFLOW AHHAYS? 25 

r9^'?s"^r $ - K ' ,,!,FT$ -"" nH,$ '"" ' HEN2B,ee SYMBOL RANGE 10? A 

SKSStZrh aY ^nOL RANGE MI? Z 

20200 rem OPCODE TABLE (Y OR N)? Y 

2830B BE- COUNT REFERENCE ADDRESS MODE TABLE(Y OR N)? Y 

lllll [T^klVZn then „i« FNTFR FILENAME? 2/1 OADQ 

2870B IF LABELS! I)-" THEN 21B0B OVERFLOW AHHAYS NOT LONC ENOUGH 

1*900 o"oi+i:phint-too «any i ABCLb" :B E iuHr. OVEHFLOW ARRAYS NOT LONC ENOUGH 

Sim nS^iH^w! OVERFLOW ARRAYS NOT LONG ENOUGH 

212118 IF REF%(I,J)-8 THEN HEF%( I , J) -I I NNO% : HE I liHN p 

213BB NEXI 

21408 IF 0V<1 THEN PR INT" NO DVERFLO* ARHAYt." : 4-C4* 1 -HETUHN BREAK IN 800 

21588 J-J-1 

2160B IF REF%(I,J><8 THEN 224BB I 

217BB FOR K-8 TO PV:IF ROVFLV K . B) -B THEN 22988 

21800 • EXT :D2.12* 1 :PHINT"NOT ENOUGH CVERFLO* ARRAYS" :RETUHN 

219BB REU SET UP CHAIN FNTER OPTIONS 

g!K SSftSilEf*' 1 -* SYMBOL TABLE(Y OR N)? Y 

llln HEu rL AOD K .r ) n vERF™i HCTUH " NUMBER OF SYMBOLS TO DIMENSION? 110 

^:: a BFORr.rTo J cL!,FRovFL,(K.L,-B.HEN227B, NUMBER OF REFERENCES TO DIMENSION? 4 

226BB NEXT :03-D3. 1 :PHINI"CVERFL0* ARRAY;, NOT LONC FNCUGI-" :HEIUHK ENTER NUMBER OF OVERFLOW ARRAYS? 4 

f2^RETuR: ,K -"- IINN0%:RE,,jHN ENTER LENGTH OF OVERFLOW ARRAYS? 35 

III" rem store ano cou,.t r PC00E SYMBOL RANGE LO? A 

23100 rem SYMBOL RANGE HI? Z 

2320B C00ES-IEFT$(C0DES.3) :FOR 1-1 TO 59 _-.—„__ -r.m>-/u ^n ., \ o v 

233BB IF CODES! Il-CODES OOTC 23780 OPCODE TABLE(Y OR N)? Y 

lltll -EXT 00 '*"'""" T " EN '"' M ADDRESS MODE TABLE(Y OH rJ ) ? Y 

236BB codes( i) -cooes ENTER FILENAME? 2/l OADQ 

2370B CCNT%( I)-CCNT%(I)*1 

2380B RETURN 

23900 REM 

24000 REM COUNT ADDRESS '.'ODE 

24100 REM 

24200 FOR 1-0 TO 8 

24300 IF VOCES! I (-MODES THEN 2450B 

24400 NEXT 

24500 MCNT*< I) -ucnT*( I)*1 

24600 RETURN 

247BB REM INIT SORT POINTER MATRIX 

248BB FOR 1-1 TO A:SRT%( I) -I :HEXT :RE 1UHN 
JK 

HUN 

E NT Eft OPTIONS 

SYMBOL TABLE(Y OH M)? Y 

NUMBER OF SYMBOLS TO DIMENSION? 100 

NUMBER OF REFERENCES TO DIMENSION? 4 

ENTER NUMBEH OF OVERFLOW ARRAYS? 4 

ENTER LENCTH OF OVERFLOW AHHAYS? 25 

SYMBOL RANGE LO? A 

SYMBOL HANCE HI? Z 

OPCODE TABLE(Y nR N ) ? Y 

ADDRESS MODE TARLE(Y PR N ) ? Y 

ENTER FILENAME? 2/LOADU 

TOO MANY LABELS 

TOO MANY LABELS 

TOO MANY LABELS 

TOO MANY LABELS 

TOO MANY LABELS 

TOO MANY LABELS 
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SYMBOL 


DEFINED 


REFERENCES 




ADTMPH 


32 


125 






ADTMPL 


31 


123 






LLOCX 


92 








ALTH 


30 


293 






alTl 


29 


290 






ARMBUF 


301 








BACKX 


00 


336 






BADADD 


218 


203 


212 




RADFIL 


177 


107 


130 


134 150 


BADGET 


276 








TADRET 


100 


128 


143 


168 


BCSBAD 


149 


113 






DINDEX 


86 


246 


259 


2 96 3 34 


BUFADD 


82 


208 






PUFF 


422 


1 14 


116 




BUFFER 


54 








BUFPTH 


41 


386 






BUFPTL 


40 


383 






nUFPTR 


39 


255 






' YTBYE 


216 


199 


210 




CHRSAV 


43 


208 


213 




CRLF 


67 


141 






CTKP 


26 








CUHCHR 


34 


326 







PIRPTH 

nPTu 

DPTL 

DRIVE 

DRVbAV 

DSDR 

DbEC 

HSTK 

rNDOFF 

FNDOFI 

EOF 

TRRFT 

FCBPTH 

FCBPTL 

FCOPTR 



FILFFiR 

FILTYP 

TIRbT 

FLbC 

FLTK 

FNAME 

FTYP 

FWDC 

OFT ADD 

GETBYT 

DFTCHR 

DFTDRV 

DETEOF 

DFTRET 

GETbEC 

INOUT 

INVADD 

INVCMD 

INVOFF 

I EN 

LENGTH 

I IMITX 

LOADER 

LODLUP 

LRET 

MEbCb 

U.OVCFB 

NEXTX 

NOAD 

NOCHH 

NOEND 

NDEOF 

MXTCHR 

riXTOKN 

HBJFCB 

uDJPTfj 

GBJPTL 
OBJPTH 
DFFbFH 



33 

28 

27 

78 

35 

15 

17 

16 

98 

94 

215 

219 

38 

37 

3 6 



343 346 350 353 363 363 



83 
142 
19 
18 

77 

23 

60 

63 
198 

242 

64 

275 

277 

268 

87 

93 

91 

100 

20 

81 

85 

103 

167 

145 

394 

307 
79 
232 
263 

147 

279 

254 

65 

421 

ati 

47 

46 

50 



285 
330 
287 
284 
281 
135 

201 
225 
1 1 1 
109 
244 
286 
315 
348 
388 

299 
133 

31 1 

308 

300 

121 
142 
127 
327 
245 
295 



303 
249 
364 

173 

122 
185 

269 

229 

253 

144 

271 

251 

105 

1 10 

i37 

139 

171 

126 



328 



317 
314 



227 



247 
289 
318 



148 
209 



302 



175 



279 



274 

120 
115 
147 
151 

157 



250 
292 
329 
358 



263 
298 
335 
365 



270 
331 
337 
368 



273 
304 
3 39 
371 



280 
309 
34 1 
382 



283 
312 
345 
385 



117 
156 
153 



119 
155 



131 
161 
163 



422 
i /'. 
172 



Classified Ads 



"PROM BLUES?? 
1.25K Program does work for you. 
Verify, erase, program, copy 
PROM to RAM, exit. For any 6502. 
Loads at $0200. Listing and in- 
structions: $9.95. Cassette: $2.00 
(ASK family only). Custom 
assembly: $2.00. All 1st Class PPD 
cont. USA. Foreign add $2.00 

Jeff Holtzman 

6820 Delmar-203 

St. Louis, MO 63130 

PET Machine Language Guide: 
Comprehensive manual to aid 
machine language programmer. 
More than 30 routines fully detail- 
ed. Reader can put to immediate 
use. Old or New ROMs. $6.95 plus 
.75 postage. Visa, Master Charge. 

Abacus Software 

P.O. Box 7211 

Grand Rapids, Ml 49510 

TAPE MOTOR CONTROL 
C1P and Superboard Users. Turns 
recorder on and off with LOAD 
and SAVE. Adds on to rather than 
modifying board. Parts cost about 
$10. Complete plans $4.00 

Bruce Miller 

13325 W. Crawford Drive 

New Berlin, Wl 53151 

British APPLE Owners/Dealers!!! 
Write now to MGA for extensive 
list of specialized software and 
hardware for your Apple or 2020. 
We promise you'll be surprised! 

Michael Gurr Associates 

140 High Street 

Tenterden, Kent 

TN306HT, England 

AIM-65 newsletter— Hardware and 
Software, Utilities as well as Ap- 
plications. Keep up to date in the 
Aim-65 world. Target is published 
bimonthly. Six issues $6.00 in US 
and CAN ($12. elsewhere). 

Target 

c/o Donald Clem 

R R Number 2 

Spencerville, OH 45887 

PET Software! Games! Graphics! 

Music! Astronomy! Ham Radio! 

Low cost quality software for 

8K + old or new PETs. Priced from 

$2.50. 

KINETIC DESIGNS— PET 

LIBRARY 
401 Monument Rd. #123 
Jacksonville, FL 32211 
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HFFSEL 

OKYGOK 

'PEN 

OPIMLUP 

HPNRL'T 

HRGOFF 

DUTCH 

nuTbP 

PACKX 

pdun 

PMSG 

PRTBYT 

PSTH 

PSTL 

READbC 

REORG 

RbEX 

bAVHEX 

bAVOOJ 

SEARCH 

bTARTX 

TGTH 

TGTL 

THE END 

WSEX 

WTDIH 

XSAVE 

ZERO 



49 

108 

326 

370 

375 

99 

70 

68 

224 

191 

185 

69 

25 

24 

252 

135 

58 

45 

44 

61 

84 

22 

21 

418 

59 

62 

42 

97 



124 
106 
1 12 
373 
332 
159 
188 
165 
202 
187 
136 
138 



248 
169 
2 94 



331 
354 



154 



211 

160 
140 



17e 
162 



190 
164 



170 297 333 



RPCODE UbAGE TAGLE 

* 31 =24 

ASl 4 nCb 12 

ONE 10 RPL 2 

DEY 4 INC 2 

JMP 1 JSR 23 

l.DY 20 OHA 1 

RTS 7 SEC 1 
TYA 1 

ADDHEbb MODE OCCURENCES 

AY AX 1 

ZY IM 3 8 

IY 41 Z 
NONE 197 



REPEAT? 
OK 



ADC 


3 


AND 


1 


GEQ 


7 


EMI 


2 


CLC 


8 


CUP 


1 1 


I NX 


1 


I NY 


14 


LDA 


38 


LDX 


4 


PIIA 


3 


PL A 


3 


bTA 


41 


TAY 


2 



ZX 

IX 

A 4 



Classified Ads 



SYM-1 EXPANSIONS: ROM — Put 
two 4K ROMS in the U23 socket 
with the W7AAY RAE-1/2 Board. 
$16.00 each, fully assembled, 
postpaid in USA. RAM - Have up 
to 8K "on board" with the W7AAY 
4K piggyback 2114 RAM board. 
Bare boards are $8.00 plus a $.15 
SASE each. Payment must accom- 
pany order. Complete instructions 
are included. 

John Blalock 

P.O. Box 39356 

Phoenix, AZ 85069 



Grocery List: easy to use self- 
prompting program lets user scan 
master file of up to 500 grocery 
and related items. Master File 
Editor also incl. lets user edit, 
delete, add to Master List. 
Diskette and complete documen- 
tation: $19.95 

D R Jarvis Computing 

1039 Cadiz Street 

Simi, CA 93065 



Integer PASCAL System for Apple 
II. Compiler, interpreter and 
translator included for $65. Pro- 
duces 6502 code programs for 
high speed. 48K Disk required. 
Send for free information. 

M & M Software Co. 

380 N Armando #Z-19 

Anaheim, CA 92806 

Attention OSI C1P/SBII Owners! 
"The Manual" is a comprehensive 
users' guide. Understanding 
BASIC, using graphics, hardware, 
mods, interfaces, utilities, some 
programs. All for $9.50. 

JDS Software 

2334 Antigua Ct. 

Reston, VA 22091 



•••Programmer Fatigue??? 
SYM-Bug/Monex adds 15 com- 
mands to SYM's repetoir, in- 
cluding an interactive 
trace/debug. Cassette @ $200 or 
$3800, $15.95. 2716 (5V) 
$F000-$F7FF, $39.95. Commented 
source listing $9.95. Custom 
assembly add $2.00. SASE for 
more info. 

J. Holtzman 

6820 Delmar-203 

St. Louis, MO 63130 

(314) 863-5209 



September 1980 



MICRO — The 6502 Journal 



28:39 



"MIDD 



IS TERRIFIC 

(For Your Apple) 



NIBBLE IS: The Reference for Apple computing! 

NIBBLE IS: One of the Fastest Growing new Magazines in 
the Personal Computing Field. 

NIBBLE IS: Providing Comprehensive, Useful and 
Instructive Programs for the Home, Small Business, and 
Entertainment. 

NIBBLE IS: A Reference to Graphics, Games, Systems 
Programming Tips, Product News and Reviews, Hardware 
Construction Projects, and a host of other features. 

NIBBLE IS: A magazine suitable for both the Beginner and 
the Advanced Programmer. 

Each issue of NIBBLE features significant new Programs of Commercial Quality. Here's 
what some of our Readers say: 




- "Certainly the best magazine on the Apple 11" 

- "Programs remarkably easy to enter" 

- "Stimulating and Informative; So much so that this is the first computer magazine I've 
subscribed to!" 

- "Impressed with the quality and content." 

- "NIBBLE IS TERRIFIC!" 



In coming issues, look for: 

□ Numeric Keypad Construction Lab □ Assembly Language Programming Column 

□ Pascal Programming Column □ Data Base Programs for Home and Business 
D Personal Investment Analysis □ Electronic Secretary for Time Management 

□ The GIZMO Business Simulation Game 

And many many more! p>"*""»BaBaBBBBaaaai 

NIBBLE is focused completely 
on the Apple Computer systems. 

Buy NIBBLE through your local 
Apple Dealer or subscribe now with 
the coupon below. 

Try a NIBBLE! 



NOTE: 

First Class or Ait Mail is requited lor all APO. I-PO and all lorcign addresses 

will) Ihc following additional amounts. 

- USA. Canada. Mexico, APO. FPO $7.50 
—Central and South America $9 00 

— Europe $12.00 

— Asia and elsewhere $15.(10 

© 1980 by MICRO-SPARC. INC.. Lincoln. Mass 01773 All rights reserved. 
•Apple II is a registered ttademark ol Apple Computer Company 



nibble 



No. 4 



Box 325. Lincoln. MA. 01773 (617) 259-9710 

I'll try nibble! 

Enclosed is my $15 (for one year). 

D check □ money order 

(Please allow 4 lo 6 weeks for delivery of Isl issue) 
BACK ISSUES of NIBBLE arc available for 
$2.00 + .50 postage and handling. 

Name 



Address. 

City 

State 



Zip. 




$819 



16K $895 

32K $1195 



$499 



APPLE* 



ATARI 



PET* 



MICROSOFT ADVENTURE 

The original of ADVENTURE written for 
the DEC-10 systems is now available 
for the APPLE. Explore Colossal Cave 
for treasures while avoiding the 
dangers hidden within its many 
passages. 130 different rooms. 15 
treasures, and characters ranging from 
helpful to deadly await you within the 
cave. Be careful where you step, and 
also who's behind you! 
32K disk machine language $29.95 

ANDROID NIM 

by Leo Christopherson 
The game that made Leo 
Christopherson famous is now 
available for the APPLE! The improved 
graphics and color of the APPLE make 
the game even better. Try to be the last 
one to shoot the androids on the 
screen. If you do, you win! Also 
includes realistic sound effects. 
24K cassette machine language. . $14.95 

MAGIC PAINT BRUSH 

Hi-Res graphics package plus! Draw 
Hi-Res pictures using all APPLE'S 
colors. Connect any points on screen, 
fill areas, plot, rotate, and scale shape, 
or 'paint' with a set of 9 brushes. Also 
comes with Shape Table Designer and 
2 demo programs. Slot Machine and 
Applesoft Invaders. 
32K disk Applesoft-ROM $29.95 

THREE-D 

You don't have to be an engineer or 
scientist to have high resolution 
graphics for your computer! This 
program permits rotation, scaling, 
shift, distortion, and combination of 
three dimensional graphics on the 
screen. MP Software. 
48K disk Applesoft-ROM $29.95 



STAR RAIDERS 

The best! A ROM cartridge holds the 
game. A fast-paced full-color, space 
battle in which you must defeat the 
enemy Zylon ships while protecting 
your home bases. Real-time action and 
effects make this game the best space 
game available. Sixty levels of rating 
from Garbage Scow 4th Class to 
Commander make for continuously 
exciting play. 
ROM cartridge $59.95 

3D GRAPHICS 

by Tim Hayes 

High quality graphics program for the 
ATARI computer allows you to rotate, 
distort, shrink, and combine three 
dimension graphic projections on the 
screen. With the high resolution 
abilities of the ATARI, one of the finest 
graphics packages available anywhere! 
16K cassette $29.95 

WALL STREET CHALLENGE 6402 

A computer simulation of the Stock 
Exchange is easy to play and always 
challenging. Invest in stocks, and try to 
make it big! 

8K and 16K version on one cassette 
$19.95 

ALL STAR BASEBALL 6401 

Two players face each other, one at 
batand the other pitcher and outfield. 
Innings, balls, strikes, and a variety of 
plays make for an exciting game. 
Joysticks are optional. 
8K and 16K versions on one cassette. 
$19.95 



STARFLEET ORION 

Command a starfleet! 2 player game 

system includes rule book, battle 

manual, control sheets. Two programs. 

22 space ship types and 12 play tested 

scenarios. 

8K cassette $19.95 

RESCUE AT RIGEL 

Search the moon base and rescue 
Delilah Rookh from the High Tollah. 
Automatic Simulations. 
24K cassette $19.35 

MORLOC'S TOWER 

Match wits with the evil wizard and try 
to defeat him! Automated Simulations. 
32K cassette $14.95 

TIME TREK 

by Brad Templeton from Personal 
Software. Real time action. Star Trek 
type game with sound effects. There 
are no 'turns'. The action continues 
whether you move or not. You and the 
Klingons can move, steer, and fire at 
the same time. 
8K cassette $14.95 



This is only a very small sample of 
our product line. For a complete 
selection, send $1 for our catalog 
of hardware, software, and 
publications and receive a $2 
credit toward your first order. 



APPIl. ATARI, and PIT are trademarks of 
Apple Computer Co., Warner Communications, 
and Commodore, respectively 



6 SOUTH ST., MILFORD, NH 03055 



The Software Exchange 

To order: Call Toil-Free 1-800-258-1790 <m nh can ejs-sm 

the Software Ixchanxe & Hardside (Div ol Robitaille & Sons. Enterprises. Inc.). SoltStde Publications 
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In this issue of MICRO, the Ohio Scientific Small 
Systems Journal presents a system overview of OS-65U 
Level I and a very informative article on expanding OS- 
65D mini-floppy BASIC. 

OS-65U Level I allows the setup of a simple, cost- 
effective, multi-terminal network using a single disk 
based computer in concert with several personal com- 
puters. The system is extremely well suited for the 
educational environment and demonstrates some of the 
'hidden power' of the personal computer. 

The article on expanding mini-floppy BASIC 
demonstrates a clever method which allows up to 26 
new reserved words to be added to BASIC. 

As always, reader comments on article content are 
always welcome. Please submit suggestions, or any 
other contributions, to: 

Ohio Scientific, Inc. 

Small Systems Journal 

1333 South Chillicothe Rd. 

Aurora, Ohio 44202 

OS 65U LEVEL I — UPLOADING AND DOWNLOADING 
ON A MULTI — TERMINAL SYSTEM 

Even small systems can take advantage of the 
storage capabilities of any one of a group of Challenger 
computers (C-1P's, C-4P"s, and/or C-8P's). This feature 
permits networking of computers, sharing a central file 
system, and even fnformation interchange between ter- 
minals. 

The OS-65U operating system can service and support 
several satellite "personal computers" from a central 
host computer. Each satellite computer can be a C-1 P, a 
C-4P, or a C-8P, and for the remainder of the article will 
also be referred to as a "terminal". The terminal can 
stand alone with no reduction in its capabilities or it can 
use the resources of the host computer to extend its 
capabilities. Hardware modifications, readily performed 
by your OSI dealer, will be required. The satellite com- 
puters/terminals, when initially ordered can be specified 
with an "Option-1 1 " for the C-XP systems. The Option-1 1 
allows up/down load as well as retaining normal 
cassette I/O. The host system requires installation of a 
multiple I/O port board, designated as CA-10L8 for 8 
ports. In general, any disk based system can serve as 
the host computer. It is convenient to choose the one 
with the greatest disk storage capability, in order to pre- 
sent the maximum increase in storage to each terminal. 

Each satellite computer, whether the C-1P, C-4P or 
C-8P, retains all the features of the stand-alone com- 
puter. These features include 8K MICROSOFT (R) BASIC 
in ROM, the ability to SAVE and LOAD cassette pro- 
grams, and access to all the computer's memory and 
accessories. For example, the home control features of 
a C-4P MF could be enjoyed while using the computer 
for computer aided instruction. 

Programs and data files can be downloaded from or 
uploaded to the host computer in a Level I Multi- 
Terminal System. This feature permits applications 
such as Computer Based Education, with the ability to 
access the lesson or course on the host computer while 
retaining the powerful BASIC programming capability at 



each computer terminal. Sharing data and exchanging 
programs while retaining isolation of each independent, 
giving its user the full resources of the computer at that 
station. The CPU (Central Processor Unit) of each sta- 
tion is totally available for the user, since it does not 
have to timeshare its resources with the host. The 
benefits of fast response, high data transfer rates, and 
low cost are not compromised. 

USE: 

To each terminal on the Multi-Terminal System, the 
host computer will function as a high speed serial port 
which can be addressed by a filename. Each terminal 
uses its serial port at a clock rate set by jumpers in the 
host computer (with data rates up to 19.2 Kilobaud!) 

To use the Multi-Terminal System, BOOT up the host 
system and RUN the program MULTI. All current OS-65U 
Systems contain this program on disk file. Now, BOOT 
up your terminals(s), with the Cassette/Level 1 switch 
positioned at LEVEL 1. If you do nothing else, your ter- 
minal is a stand alone computer. Let's take advantage 
of this status to enter a very short program. 

NEW 

10 PRINT "TEST MESSAGE":END 
When you type 

SAVE 
the facilities of the host computer will be made available 
assuming the terminal switch in the LEVEL I position. 
Since we wish to save this program we type 

REM S FILNAM 
where FILNAM is the file name of an available disk file 
on the host computer. The host computer expects the 
next entry to be 
LIST 

which effects the transfer of the program to the host 
computer's file, FILNAM. To discontinue transfer 
capability to the host computer, type, for example, the 
entry 

LOAD <CARRIAGE RETURN > 
then 

<SPACE> 

The symbol <SPACE> denotes a blank space. 
Similarly, the symbol <CARRIAGE RETURN > denotes 
a carriage return. These symbols will be used when 
there is some chance of ambiguity of notation. Other- 
wise, <CARRIAGE RETURN > is assumed to terminate 
a keyboard entry. If we now enter 

NEW 
we will clear the workspace on our terminal. We can 
check this by typing 

LIST 
To download our program from the host computer's 
disk file, we again get the services of the host computer 
by entering the command 

SAVE 
and then 
REM L FILNAM 
then 

LOAD 
The file, FILNAM, will be transferred from the host com- 
puter's disk and displayed during transfer to the ter- 
minal, as we can observe by typing 

<SPACE>LIST 
The short program should be listed on our terminal 
screen. If we had wished to list on the host computer's 
printer, the command would have been 
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SAVE 

REM P 

LIST 
LOAD 

<SPACE> 
Note: LOAD, <CARRIAGE RETURN >, <SPACE> ter- 
minate link. 

Provisions are made in the program MULTI to discon- 
nect a terminal which has requested services of the host 
computer (by typing SAVE) but has not finished its re- 
quest by entering 

REM L FILNAM 
After approximately 13 seconds of inactivity, the pro- 
gram MULTI will assume that no further activity is ex- 
pected from the calling terminal, and the host computer 
will again scan the terminals for input. 

APPLICATIONS: 

Storing copies of programs, such as educational 
materials, and uploading and downloading the pro- 
grams to each terminal makes these programs available 
within an educational network. (These same benefits of 
uploading and downloading could prove equally useful 
in a small business environment.) 

In a typical application in education, a C-8F DF might 
be used as a host computer while four satellite com- 
puters, say C-1P's, serve as individual student stations. 
Although each satellite costs about half the cost of a 
dumb terminal, it possesses more abilities than many 
nominally intelligent terminals. The program MULTI 



would permit each terminal to request downloading of 
the current lesson. For simplicity, the instructor may 
wish to modify MULTI to permit automatic downloading 
to ease lesson startup for less experienced students. 
Each student could then save his/her lesson onto 
cassette for future use after the lesson is completed. 

In a typical lesson, the student may have need of the 
computing power of BASIC. A null response to a lesson 
question will return the student to BASIC. After com- 
pleting his/her calculations in BASIC the student could 
return to the educational program with the results of the 
calculation in hand. 

In a similar manner, student responses can be 
automatically stored for instructor review by writing the 
educational program with storage of the answers in an 
answer array. By SAVEing the student's program in a 
student file on the host computer, individual answers 
can be reviewed and student progress assessed by the 
instructor. These possible features are all within the 
flexibility of BASIC programming. These features allow 
the power of a sophisticated computer aided instruction 
system to by built on the resources of your OS 65U host 
system and the simple BASIC programming of MULTI. 

Since the satellite stations can be run with high baud 
rates and downloaded programs can themselves re- 
quest downloading, then it is possible to use the exten- 
sive graphics support which is available from OSI within 
educational program with the results of the calculation 
in hand. 




TYPICAL LEVEL 1 SETUP 
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These ideas are intended to point out the power of 
what appears to be a relatively simple program. 

Summary 

Several methods are available to obtain source 
materials, including cassette or keyboard entry, and 
disk entry from the terminal or host computer, the 
methods provide a variety of ways to transfer materials 
between systems. 

Since MULTI is written in BASIC, it provides the flex- 
ibility to support your specialized Level I needs, pro- 
viding specialized uploading and downloading, logging, 
and branching to special servicing programs by the 
methods suggested. 

Flexibility characterizes the LEVEL I System. It pro- 
vides the benefit of sharing common programs and us- 
ing central files while retaining the dedicated computer 
use at each terminal. It provides a case of "having your 
cake and eating it too!" 

Adding New Reserved Words to BASIC 

In this article, we describe a method that can be used 
by "the assembly language programmer to add new 
reserved words to Ohio Scientific Microsoft BASIC on 
mini-floppy disk based computers using OS-65D B3.x. 
This method involves mimimal changes to the BASIC in- 
terpreter. These changes can be accomplished by seven 
POKEs. Using this method, one can add up to 26 new 
words, each of which is a single letter followed by an 
asterisk (*). To simplify the assembly language code, we 
require that each new reserved word contain no embed- 
ded blanks. Each new word can be executed either in the 
immediate mode or from a running program. 

Ohio Scientific Microsoft BASIC is implemented by an 
interpreter. This means that the BASIC program is 
stored in memory in ASCII, just as it was entered from 
the keyboard (with exceptions which we will describe 
later). When a BASIC program is running, the interpreter 
(a machine language program) examines each line, ex- 
ecutes the appropriate code and then advances to the 
next line. To do this, the interpreter maintains a pointer, 
which we will call TXTPTR, that points to the area in 
memory which contains the BASIC statement currently 
being interpreted by the interpreter. Note: A pointer is a 
word in memory that contains an address. 

TXTPTR is a 16-bit word at $C7 and $C8 on page 0. The 
low byte of the address is at $C7 and the highbyte is at 
$C8. Note: $ is 'shorthand' meaning hexadecimal. When 
the interpreter begins to scan a line of BASIC code, TX- 
TPTR points to the first non-blank character on the line. 
After interpreting the line, TXTPTR must be incremented 
until it points to the byte containing the terminator for 
the line, either $00 or $3A (carriage return or colon, 
respectively). 

As we said previously, a BASIC program is stored in 
ASCII as it was entered from the keyboard. One excep- 
tion is that a carriage return is stored as $00. The other 
exception is that all reserved words (PRINT, NEXT, 
GOSUB, etc.) and all operators (', + , AND, SIN, etc.) are 
"tokenized", that is stored in one byte in a special code 
which is not standard ASCII. The token for an asterisk is 
$A5. 



When a line of a BASIC program is stored in memory 
the first byte after the line number is one of the token^ 
The one exception to this is a LET statement which 
omits the reserved word LET. That is, LET X = or X = 0. 
Hence, if the first group of characters on a line is a word 
which is not a BASIC reserved word, the interpreter bran- 
ches to the code for LET. This is where we insert a JSR 
to our new code which will look for new words and ex- 
ecute appropriate code if one is found. 

The code for LET begins at decimal address 2470 (OS- 
65D V3.x on mini-floppy). The first three lines of this 
code are, in machine language, $20, $2E, $0F, $85, $96, 
$84, $97. We replace these seven bytes with hex 20, 00, 
50, EA, EA, EA, EA. This calls a machine language 
subroutine at $5000. 

Address $5000 is where we will put out new code, 
this address can be changed to any other available ad- 
dress by the user. The changes in these eight bytes can 
be accomplished by: 



POKE 


2470 


POKE 


2471,0 


POKE 


2472, 80 


POKE 


2473, 234 


POKE 


2473, 234 


POKE 


2475, 234 


POKE 


2476, 234 



An appropriate place for these POKEs is in BEXEC. 
They can also be put at the beginning of a BASIC pro- 
gram which contains a new reserved word. In our sample 
programs we put our new code at $5000. After the new 
code is assembled, it can be stored on disk with £ 
DISK!"SA— " instruction and then brought into memor|| 
by a DISKICA— ". Thus, on the disk which contained our 
sample programs, we added to BEXEC" the seven 
POKEs above and a DISK!"CA— " instruction. 

In Listing 1 we introduce one new word, C", which in- 
itiates a machine language screen clear. The program 
is, in outline, the following: 



Step 1) Check the second character on the line to 
see if it is the token for an asterisk. Then see 
if the first character is a C. If either of these 
fail, branch to BACK where we executed the 
machine code that was deleted from LET, 
then RTS back to LET. 



If the line is C* then execute the screen clear 
code. 



Step II 

Step III) Add2toTXPTR. 



Step IV) At this point we want to return to the point 
from which LET was called, so we can pro- 
ceed to the next line. Execution of an RTS, 
however, will take us back to LET and a syn- 
tax error will result. Thus, we first execute 
PLA:PLA to remove one address from the 
stack and then RTS. 

In the next example we insert two reserved 
words: C* as above and S* which will act as 
a switch to enable or disable the scrolling of 



Call 1-800-6850 TOLL FREE 
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the screen after a PRINT. The effect of S* is 
the same as: 

X = PEEK(9770) 

IF X = 64 THEN POKE 9770,0 

IF X = THEN POKE 9770, 64 



Step IV) After executing the code which is appropriate to 
the word, exit through UPDATE, as before. 

Following the steps outlined in example two, 24 more 
reserved words may be easily added. 



Listing 


1 








10 00C7- 


TXTPTR=»C7 




20 00A5" 




T0KEN-SA5 




30 










40 5000 




•=15000 






50 










60 5000 


A001 NEWORD LOY 


• 1 




70 5002 


B1C7 


LDA 


< TXTPTR) 


Y set 2nd chr of the line 


80 5004 


C9A5 


CMP 


•TOKEN 




90 5006 


D02E 


BNE 


BACK 


if not star token then RTS 


100 5008 


88 


DEY 






110 5009 


81C7 


LDA 


(TXTPTR) 


Y get 1st chr of the line 


120 500E: 


C943 


CMP 


• •c 




130 S00D 


D027 


BNE 


BACK 


if not "C" then back to LET 


HO 










ISO 










160 




code for n 


w reserved word begins here 


170 










1B0 500F 


A920 1 


EWCOE LDA 


#32 


ASCII for a blank 


190 5011 


A000 


LOY 


• 


ready for indexed STA 


200 5013 


A208 


LOX 


•8 


no. of pa9.es on screen 


210 5015 


990000 


UTIT STA 


SOO00.Y 




220 501B 


C8 


INY 






230 5019 


O0FA 


BNE 


PUTIT 




210 50 IE: 


EE1750 


INC 


PUTIT.2 


if Y rolls over then change 


250 50 IE 


CA 


DEX 




P39e 


260 501F 


O0F4 


BNE 


PUTIT 




270 5021 


A9D0 


LDA 


#»O0 


restore for 


280 5023 


801750 


STA 


PUTIT'2 


next call 


290 










300 
310 




Mad to update TXTPTR before return to BASIC 


320 










330 5026 


A5C7 


1PDATE LDA 


TXTPTR 




340 5028 


18 


CLC 






350 5029 


6902 


ADC 


• 2 




360 502B 


85C7 


STA 


TXTPTR 




370 502D 


A5C8 


LDA 


TXTPTR+1 




360 502F 


690 


ADC 


•0 


add the carry if it's ther 


390 5031 


85C8 


STA 


TXTPTR*! 




400 
410 
420 




now TXTPTR 


points to the end-of-line Marker 




there are two retur 


addresses on the stack 


431 




pull off the top one 50 that ft retorn to the 


440 




place where LET was 


called, instead of to LET 


450 










460 5033 


68 


PLA 






470 5034 


08 


PLA 






480 5035 


60 


RTS 






490 
500 
510 












BACK it the Machine 


code that was deleted fro* LET 


520 




and replaced by JSR 


S5000 


530 










540 5036 


20 


ACK .BYTE «20,12E,S0I i«6,I84,V 


540 5037 


2E 








540 5038 


OF 








540 5039 


85 








540 503A 


96 








540 503B 


84 








■40 503C 


97 








550 503D 


60 


RTS 






1A0 




.END 







Listing 2 is outlined as follows: 

Step I) Compare the second character on the line and 
the token for an asterisk. It it isn't, then branch to BACK 
as in the first program. 

Step II) If it is an asterisk, then enter a loop which com- 
pares the first character on the line and the entries of a 
table called, NAMTBL, which contains all the legal 
characters. In the sample program the table has three 
entries, 'C, 'S', 0. The zero marks the end of the table. If 
this last entry is reached, then we branch to BACK and a 
syntax error will eventually result. This table can be ex- 
panded to up to 26 letters in any order. 

Step III) If a match is found, then we use the index 
register from the compare loop to get an address from a 
table of addresses (actually a double table; one for low 
byte, one for high byte), put the address into a JMP in- 
struction and then execute the JMP. The effect is the 
same as an indirect JMP. 



Listing 2 

10 00C7- 

20 O0A5" 
30 

40 5000 
SO 

60 5000 A001 

TO 5002 B1C7 

80 5004 C9A5 

90 5006 D054 

100 5008 88 

no 5009 «2oo 

120 5008 BD2450 

130 500E F04C 

140 5010 E8 

150 5011 D1C7 

160 5013 D0F6 

170 

180 5015 BD2650 

190 5018 8D2250 

200 S01B BD2850 

210 501E 8D2350 

220 

230 5022- 

240 5023" 

250 

260 5021 4CFFFF 

270 

230 

290 5024 43 

290 5025 53 

290 5026 00 

300 

310 5027 2B 

310 5028 44 

320 

330 5029 50 

330 502A 50 

340 

350 

360 

370 

380 502B A920 

390 502D A000 

400 502F A20B 

410 5031 99O0D0 

420 5034 C8 

430 5035 D0FA 

440 5037 EE3350 

450 503A CA 

460 503B D0F4 

470 503D A9D0 

480 503F 8D3350 

490 5042 D008 

500 

510 

520 5044 AD2A26 



TXTFTR-SC7 
TOKEN=SA5 



«=S5000 



token then RTS 



NEWORD LOY »1 

LDA ( TXTPTR ),Y get 2nd chr of the 1 

CMP *TOKEN 

BNE BACK if 

DEY 

LOX 00 
LOOP LDA NAMTBL, X 

BEO BACK if at ef.d of table 

INX 

CMP (TXTPTR I, Y 

BNE LOOP 



LDA LOADR-l.X 
STA JMPLO 
LDA HIADR-l.X 
STA JMPHI 



JMPL0-*«1 
JMPHI"**2 



keep trying if no Match 
get address, lo byte 
get address, hi byte 



by the tine this IS execute 
the address is changed 



NAMTBL .BYTE 'C, 'S',0 

LOADR .BYTE S2B.S44 

HIAOR .BYTE S50.S50 



I code for ne 



reserved word begins her 



4940 
3D2A26 



530 so*; 

540 SMS 

550 

560 

570 

580 504C A5C7 

590 504E 18 

600 504F 6°0r 

620 5053 A5C8 
630 5055 6900 
64U 5057 85C8 

650 

660 

470 

680 

690 

700 

710 5059 68 

720 505A 68 

730 505B 60 

740 

7S0 

760 

770 

780 

790 505C 20 

790 5050 2E 

790 505E OF 

790 505F 85 

790 5060 96 

790 5061 B4 

790 5062 97 

800 5063 60 

810 



LDA #32 

LDY #0 

LDX 08 

STA SD000,Y 

INY 

BNE PUTIT 

INC PUTIT-2 

DEX 

BNE PUTIT 

LDA #*D0 

STA PUTIT.2 

BNE UPOATE 



S.CODE LDA 9770 
EOF #S40 
STA 9770 



ASCII for blank 
ready for indexed STA 
no. of pages on screen 



if Y 
page 



restore for 

next call 
always branche 



;need to update TXTPTR before return to BASIC 



UFDAIf LDA TXTPTR 
CLC 
ADC 12 
LDA TXTPTR- 1 
ADC «0 

STA TXTPTp.l 
now TXTPTR points to 



add the carry if it's there 
the und-of-line Marker 



there ere two return addresses on the stack 
pull off the top one so that we return to the 
place where LET was called, instead of to LET 

PLA 
PLA 

RTS 



BACK is the nachine code that was deleted fron LET 
and replaced by JSR SS000 

:ACK .BYTE S20 , S2E. SOF , S3S. S96.S34 , S97 



RTS 
.END 
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FOR 




□ 51 




Video Games 1 

Head -On. Tank Battle, Trap! 


$15 


Video Games 2 

Gremlin Hunt, Indy 5000, Gunfight 


15 


Board Games 1 

Cubic, Mini-Gomoku 


15 


Dungeon Chase 

A real - time, D& D , video game 


10 


C1 Shorthand 

Two key command entry 


12 



One tape supports all recent ROM systems. 

Color and sound on video games. Some 
programs on disk. 

FREE CATALOG 

Orion Software Associates 

147 Main Street 

Ossining.NY 10562 



WP-6502 

a very fine word processor 




Tape(C1,C2.C4) $75 

5"Disk(C1,C2.C4) ...$75 
8" Disk for 65D $75 



8" 65D & 65U 
Descriptive 
Brochure . . . 



$125 
FREE 




Dwo Quong Fok Lok Sow 

23 East 20th Street 

New York City, New York 10003 

(212)685-2188 





regressive 
pmputing 
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Hardware: C1P VIDEO- gives true 32 or 64 chr/line with 
guard bands. This is not a make-shift mod. It makes your 
video every bit as good as the 4P's plus you have switch 
selectable 1,2 and 3 MHz CPU clock as well as 300, 600 
and 1200 baud for cassette and serial port-all crystal 
controlled. Send for our $1.00 catalog for more details. 

COMPLETE PLANS S18.95KIT $39.95 

or send your 600 board to: 

Rick Lotoczky 
3281 Countryside Circle 
Pontiac Twp, Ml 48057 
and he will install the video mod for just $79.95. 
OTHER mods available: Add sound:RS-232 port, 
cassette motor control, cassette interface plans. (300, 
600 and 1200 baud) 

SOFTWARE: (with documentation) for C1 , C2, 4P and 8P. 
Chess 1.9, Backgammon, Excellent Card Games, Arcade 
type games, Utility Programs, Mini Word Processor, 
Memory Maps, Editing Cursor, etc. 
Catalog with free program (hard copy) and Memory Map 

for BASIC in ROM Models $1.00 

We now accept VISA. 

Progressive Computing 

3336 Avondale Court 

Windsor, Ontario, Canada N9E 1X6 

(519) 969-2500 

Note: Any modification will VOID your OSI warranty. 



^ 
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AIM MicroChess with Player's and Programmer's Manual, 
complete Source Listings, Object on Cassette Tape. 
$15.00 plus Shipping [$1.00 US/I2.00 Anywhere Else] 
MICRO Software, P.O. Box 6502, Chelmsford, MA 01824 
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N.E.O. Apple Corps 

Meets on the third Saturday of each 
month. Various sub-groups meet during 
the month. Over 170 members in this 
fairly new group. They can be contacted 
at: 

N.E.O. Apple Corps 
P.O.Box 39364 
Cleveland, OH 44139 
"Our newsletter was incorrectly listed. If 
anyone requests information on APPLE 
BITS they may use the above address. 
Our primary objectives are to inform 
area Apple owners of new points of in- 
terest and to introduce the community 
to personal computers through monthly 
demonstrations." 

Wollongong Computer Club 

Meets every fortnight and includes a 
number of small users groups. Presently 
they are TRS-80, OSI, Pet, Apple, Z80, 
8085 and Sorcerer oriented. Address any 
correspondence to: 

Paul Janson 

14 Hayward Street 

Kanahooka, NSW 2530 

Australia 

"We also have members with no 

machine just a common interest." 



Appleseed 

Meets every other Wednesday at 7:30 
p.m. at local computer stores and other 
locations depending on the program and 
facilities required. Publish a newsletter. 
Dr. Terry Mikiten is President. Address 
inquiries to: 

John Ghidoni, Treas. 

12801 Huebner Road 
San Antonio, TX 78230 
"We aim to provide a forum tor informa- 
tion exchange, to provide education in 
the techniques and application of the 
apple computer by members and outside 
sources and to provide an interface with 
other similar clubs throughout the coun- 
try, specifically including the Interna- 
tional Apple Core." 

The G.R.A.P.E. 
Group for Religious Apple 

Programming Exchange 

A new international group, and as such 
they do not have membership meetings. 
They express their purpose, interest, and 
activities to be together in a common 
desire to share their faith and gifts in 
APPLE programming. They publish a 
monthly newsletter, The Grape Vine. 
GRAPE'S full policy statement will be 



sent to all persons expressing an in- 
terest by writing to: 

G.R.A.P.E. 

Stephen M. Lawson 

P.O.Box 283 

Port Orchard, WA 

98366 



Permian Basin Amateur 

Computer Group 

Meets on the second Tuesday evening 
and the second Saturday at different 
locations. John Rabenaldt is President 
over 15 members. Several specail in- 
terest groups. Write to: 

John Rabenaldt 

Ector County School District 

Box 3912 

Odessa, TX 79760 

"AIM: To exchange information on small 

computers and assist in hardware and 

software projects. " 

Salem Area Computer Club 
Address Change 

The new address for this club is: 
3485 Mock Orange Ct. South 
Salem, OR. 97303 
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Look what you get for only $5.00 

Video Plus II™ now offers: 






Character Generator in EPROM 

Design Your Own Characters up to 8 x 16 Dots 

Programmable Character Width 

Well Spaced 80 Character Lines with 7x9 Upper 

and Lower Case for Word Processing 
Dense 136 Character Lines with 5x7 Upper Case 

only for a 4000+ Character Display 
Reverse Video on Selected Characters 
Extra 1K RAM for Programming 
Improved ASK Software in EPROM: 
Fully AIM, SYM, KIM, Compatible 
Works with Monitors, BASICS, and Editors 
Supports Fast Hardware Scrolling 
Flicker Free Operation 
Improved Stand Alone Option ■ $20 
6502 Based Stand Alone System 
ASK Software Supports the Stand Alone Mode 
Communication Option - $35 
Includes Programmable Baud Rate 
Handles RS232 and 20 MA Current Loop TTY 
Blank/Unblank Portions of Any Line 




The original VIDEO PLUS™ cost $245 and the ASK EPROM 
was an additional $45, for a total package price of $290. 
Now, for just $5.00 more, VIDEO PLUS II™ includes all the 
features of the original board, the improved ASK EPROM, 
all of the features listed above, and other enhancements for 
only $295. 

Other improved products include MOTHER PLUS II™, 
PROTO PLUS II™, and A PLUS II™. Available 1 October 
1980. Write or call for additonal information, data sheets, 
etc. All prices are US/Canada only and do not include shipp- 
ing or applicable taxes. 



' | 34 Chelmsford St., Chelmsford, MA. 01824 617/256-3649 
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PET VET 

Loren Wright 

P.O. Box 6502 

Chelmsford, MA 01824 

As the newly appointed "PET 
expert" on the MICRO staff, I'd 
like to introduce myself. I have 
experienced many of the same 
joys and frustrations you have, 
from the early lack of documenta- 
tion to the arrival of the new 
ROM's. My experience with the 
PET includes applications to 
teaching, interfacing peripherals 
and instruments, hardware modi- 
fication, character set substitu- 
tion, and extensive programming 
in BASIC and machine language. 



I will increase my knowledge 
and experience by constantly 
reviewing the literature, keeping 
track of new developments in soft- 
ware, hardware, and firmware, and 
by strengthening my communica- 
tion with Commodore. Using the 
MICRO Lab's PET system, I'll be 
testing programs and products for 
the PET, and increasing my own 
"hands on" experience. As part of 
MICRO'S commitment to the PET, 
I will become truly an expert. We 
are aware that many of the PET- 
oriented magazines are no longer 
in existence, and it is MICRO'S in- 
tent to increase our PET coverage 
to help fill that void. 

Meanwhile, I'll be working to ex- 
pand and improve MICRO'S PET 
coverage. This means printing 



more PET articles, keeping you in- 
formed of new developments, and 
answering your questions in a 
"PET VET" column. In the August 
MICRO we published James 
Strasma's review of the Program- 
mer's Toolkit, and you can expect 
that other new PET/CBM hard- 
ware, software, and firmware, will 
be reviewed in future issues. 

If you've been wondering where 
to send that PET/CBM article, this 
is the place. Send for a MICRO 
writer's guide if you're having 
trouble getting started. Also, send 
in your questions for the PET VET 
column. They can be directed 
toward any aspect of PET or CBM 
use. 

Finally, remember that there is 
someone here at MICRO who 
knows and cares about your PET. 



Microbes and Updates 



Les Cain found that in "OSI BASIC in 
ROM, What's Where" (23:65) the five missing 
keywords can be found by changing line 120 
to: 

120 FORC = 41062TO41089STEP3 
The program will then include: 



AC69 


AND 


AC66 


OR 


BAEF 


> 


ABD8 


= 


AC96 


< 



Wendall A. Malpass of Wake Forest, NC. 
sent the following variations in for some 
AIM-65 programs: 

from 19:38 "Clear" 
Location 0305 - LDA 035F 

should be: LDA 035F, Y 
Location 035F - 43 4C D2 

should be: 43 4C 52 
Reference to loaded character is at 034E, not 
0340. 

from 19:39 "Mover" 
Location 02C A - 4E 45 D7 

should be: 43 4C 57 
and from 12:7 "Write to Memory" 
If not printing, last line cannot be read. I 
changed location 0058 to: JSR E993 
then, location 000F to: BEQ 005B 
0027 to: BEQ 005B 



location 005E - "RTS" is preferred over 
"BRK". 

Jerry Tenenbaum of Toronto, Canada, sent 
in the following information regarding the ar- 
ticle "Plotting a Revolution" in 16:5: 
On page 8, byte 1E6B should be E2 (not EC) 

Loren Wright, MICRO PET Specialist, 
found the following microbe in "Plotting with 
Special Character Graphics" 24:11: 
On page 13, Figure 1, the second row of sym- 
bols was upside down. The whole figure 
should appear in this order: 

□EHBHBHB 

QSLlSBEJtM 

Figure 1 

Marvin DeJong of Point Lookout, MO 
found that: 

The Morse Code Send/Receive program 
described in 21:19 will not work if a Mother 
Plus is attached to the AIM 65. The mother- 
board's IC U2 prevents any device on the AIM 
65 from pulling the IRQ pin low. One solution 
to get the Send/Receive program to work is 
to disconnect pin 1 of U2, another solution 
would be to disconnect the motherboard for 
this program. 

The Mother Plus has recently been re- 
designed and no longer presents this prob- 
lem. 



A Versatile HI-RES Function Plotter for the 
APPLE II 



One of the obvious uses for APPLE HI-RES capability is 
to plot various mathematical functions. The program 
presented here is very general purpose and permits the 
user to simply plot any expression as a function of angle 
from 1 to 360 degrees. A modification is included which 
will permit the program to be used on an ATARI as well. 



David P. Allen 

19 Damon Rd. 

Scituate, MA 02066 



A few years ago when scientific 
calculators first made their ap- 
pearance I was enchanted by the 
ease with which calculations using 
transcendental functions could be 
accomplished. This prompted me to 
dust off the old trigonometry book 
and delve into some basics through 
which I had once passed somewhat 
painfully. Maybe pain isn't the word. 
Probably boredom and drudgery 
would be better words. Log and 
function tables are probably the on- 
ly documents with less magnetism 
than the Little Rock telephone book. 



I expect that many a budding 
mathematics curiosity has 
atrophied over the dryness of log 
tables. 

With the power and freedom of 
this nifty calculator at hand I sud- 
denly found myself unfettered by 
the yoke of boredom and I swiftly 
recovered much of my early curiosi- 
ty by travelling quickly through 
basic trigonometry. Gone were the 
stumbling blocks of look-up tables 
and I was able to travel down many 
diversionary "what it's" to see what 



really happens when certain values 
change in mathematical formulae. 

But as exciting as all this was, 
and because much of mathematics 
requires visual images, I looked for- 
ward to a time when, with the help of 
a small computer, I could generate 
graphs and figures as well as 
numbers to excite and satisfy my 
curiosity. 

And so it was that after acquiring 
an Apple II computer, one of my first 
exercises was to develop a program 
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which would use Apple's excellent 
high-resolution graphics to plot the 
path of a variety of mathematical ex- 
pressions. This program is the 
result and I have had much, much 
fun with it. 

The program was developed on an 
Apple II with 48K of RAM and an Ap- 
plesoft ROM card. The entire pro- 
gram takes only slightly more than 
3K of RAM, depending on the com- 
plexity of the function being plotted. 

Those who do not have the Ap- 
plesoft ROM card may still use this 
program by changing line 480 to 
read "HGR2" instead of "HGR" 
under these circumstances the 
function plotted formula will not be 
printed at the bottom of the screen. 
All other functions work as describ- 
ed. 

The heart of the program is line 
1010 which contains the function 
being explored. A typical function is 
listed here. When run, the program 
first defines some trigomometric 
and hyperbolic functions which are 
not directly available in Applesoft 
Basic. It then proceeds to plot the X 
and Y axes. As currently arranged 
the expression under investigation 
is plotted as a function of changing 
angle, from 1 to 360 degrees. By 
changing lines 670 and 900 other in- 
dependent variables could be in- 
troduced. The program is complete- 
ly protected against off-scale plot- 
ting and automatically scales itself 
for the range of independent 
variables selected. 

When the plot is completed the 
program dutifully presents a print- 
out of the function and awaits your 
pleasure at the push of the return 
key. It then presents you with a 
helpful list of all of the additional 
functions defined by the program in 
addition to those resident in Ap- 
plesoft Basic. Line 1010 is listed 
and the cursor invites your screen 
editing of this line for further varia- 
tions. 

A word of caution: any attempt to 
plot mathematical "no-no's" such 
as square roots or logs of negitive 
values will earn you a quick error 
message. Do not despair. Use of the 
ABS command will quickly get you 
back in business when these values 
crop up! 
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This program has all kinds of 
tinkering possibilities. You might try 
surrounding line 1010 with a FOR... 
Next loop to introduce other 
variable changes and to allow 
longer expressions than you can 



conveniently type into line 1010 all 
at once. Just beware! This program 
is subtly laced with a curious nar- 
cotic which has been known to keep 
the user awake all night! Have fun! 



FIST 






100 


REM 


* 


1 10 


REM 


* 


120 


REM 


* 


130 


REM 


* 


140 


REM 


* 



lbO REM ** 



************************ 

FUNCTION PL0'I7Ek * 
BY DAVID F. ALLEN * 
(C) COPYRIGHT 1980 * 
APPLESOFT II BASIC * 

Courtesy of Roger Wagner's "VAR- 

DQC" 

** *«*****************>( 



160 


REM 






170 

ISO 


REM 

REM 


THIS PROGRAM 


PLOTS A 


190 

200 


REM 
REM 


CURVE FOR ANY EXPRESS- 
ION AS A FUNCTION! 0F 


210 
220 
23 


REM 
REM 
REM 


INCREASING ANGLE FROM 
1 70 360 DEGREES. 
CHANGE LINE 1010 7 A 


2-aO 
2b0 
260 


REM 
REM 
REM 


FUNCTION YOU 
PL 07. 


WISH 70 


27 


REM 






28 

29 
300 


REM 
REM 
DEF 


** DEFINE FUNCTIONS ** 
FN SCH(X) = 2 / ( EXP C 


X) + 
CX) 

340 


EXF- 
DEF 


( - X ) ) : REM 
FN CCH(X) = 2 


SECH 

/ ( EXP ( 


X> - 
(X) 
320 
/ ( 


EXF 

DEF 
EXP 


( - X) ) : REM 

F^ CTHCX) = 

(X) - EXP < - 


CSCH 

EXP ( - X) 
X) ) * 


2 + 


l: REM C07H(X> 




330 DEF FN SECCX) = 1 
>: DEF FN CSC(X) = 1 / 


/ COS (X 

SIN 


(X) : 
(X) 


DEF 


FN C0TCX) = 1 


/ 7 AN 


340 


DEF 


FN SNH(X) = ( 


EXP (X) - 


EXP 


( - 


X)> / 2: REM 


SlUKt 


X) 
350 


DEF 


FN C0H(X) = ( 


EXP CX) ♦ 


EXP 


( - 


X)) / 2: REM 


C0S.HC 


X) 
360 


DEF 


FN TAH(X) = 


- EXP ( - 


X) / ( EXP (X) + EXP ( 
) * 2 + l: REM 7ANHCX) 


- X) 


37 

38 

39 


REM 
REM 
REM 


** PLOT GRAPH 


AXES ** 


400 
410 


REM 

HOME 
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420 REM 960 REM 

430 REM MOVE CURSOR TO BOTTOM 970 REM 

440 REM LINE. 98 REM 

450 REM 990 REM 

460 VTAB 24 1000 REM 

470 REM »°10 Y » = 

43 HGR 

490 HCOL0R= 7 1020 Y = Y 

500 HPLOT 0,80 TO 279,80 1030 Y = Y 

510 HPLOT 0,16 TO 0,143 1C40 REM 

520 FOR I = 10 279 STEP 70 1050 REM 

530 HPLOT 1,78 TO 1,82: HPLOT 27 1060 REM 

9,78 TO 279,32 1070 X = I 

540 NEXT I 1080 REM 

550 FOR I = 16 TO 144 STEP 16 1090 REM 

560 HPLeT 0,1 TO 4,1 

570 NEXT I 1100 

58 REM 1110 

590 REM FLAGS F0R FIRST PLOT 1120 

600 REM AND SCALE. 1130 

610 REM 1140 

620 F = 0:G = 1150 

630 REM 1160 

640 REM Rl AND R2 MAY BE SET 1170 

650 REM FOR OTHER LIMITS. 1180 

660 REM 1190 

670 Rl = l:R2 = 360 1200 

63 REM 1 

69 REM 12 10 

700 REM ** BEGIN PLOT ** 1220 

710 REM 1230 

720 REM CHANGE STEP FOR MORE 1240 

730 REM OH LESS RESOLUTION. 1250 

740 REM IF Rl > R2 THEN STEP 1260 

750 REM MUST BE NEGATIVE. 1270 

760 REM 1260 

770 FOR I = Rl TO R2 STEP 5 1290 

730 REM 0: PC 

790 REM NEXT 3 STEPS ESTABLISH 160 

800 REM HORIZONTAL SCALE. 1300 

8*10 REM 1310 

320 IF A3S CR1) > = ABS (R2) THEN 

K = ABS (Rl> 1320 

330 IF ABS (K2> > = ABS (Rl) THEN 

R = ABS (R2) 1330 

340 IF G = THEN S = 70 * 4 / R 1340 

:G = 1 1350 

350 X = ItY = 38 4, 1 

860 REM 1360 

870 HEM CONVEkTS DEGREES TO 1370 

88 REM RADIANS. 138 

89 REM 139 
900 X = X * 3.14159 / 130 1400 
910 REM 1*10 
920 REM PREVENTS CRASHING WHEN 1420 
930 REM X = 0. XA30 
940 REM 
950 IF X = THEN X = .00001 



NEXT LINE DESCRI BES 
FUNCTION TO BE PLOTTED 

SIN (X) ♦ COS (2 * X) 

♦ Yl 

* 20 

SCALES X 



RELATES PLeT TO X AXIS 



REM 
Y = - Y ♦ 80 
REM 

REM SUBROUTINE PREVENTS 
HEM OFF-SCALE CRASHING. 
REM 

G0SUB 1830 
REM 

REM PLOTS FIRST POINT. 
REM 
IF F = THEN HPLOT X,T:F = 

HPLOT TO X,Y 
NEXT I 

PRINT : LIST 1010 
REM 

REM BLANKS OUT LINE * 
REM AFTER LISTING 
REM LINE 1010. 
REM 

POKE 1616,160: POKE 1617,16 
KE 1616, 160: POKE 1619, 

REM 

kEM WAITING FOR YOUR PLEA- 

REM SURE! PUNCH 'RETURN' 

REM T CONTINUE ! 
REM 

POKE - 16363,0: WAIT - 16 
28 
REM 
REM 

REM THROWS PREVIOUS KEY- 
REM STROKE AUAr v*ITH 
KEM 'GET Z$' ! 
REM 

GET 25 
kEM 



1430 REM ****************************** 

1440 REM CLEAR SCREEN AND * * 

1450 REM PRINT FUNCTIONS F0R * FUNCTION PLOTTER * 

1460 REM REMINDER. * * 

1470 REM * -->TABLE 0F VARIABLES*:-- * 

1480 TEXT : HOME * * 

1490 PRINT TABC 9>*"SECANT = FN ****************************** 
SEC(X) 



CCHC*> - HYPERBOLIC COSECANT 
310 

C0HC*> - HYPERBOLIC COSINE 
350 



320 



1500 PRINT TABC 9>J"C0SEC = FN 

CSCCX)" 
1510 PRINT TABC 9>J"C0TAN = FN 

C0TCX)" 
1520 PRINT TABC 9>;"SINH = FN 

SNHCX)" C0TC*> - COTANGENT 

1530 PRINT TABC 9 ) J "COSH = FN 33Q 

C0HCX)" 
1540 PRINT TABC 9)J"TANH = FN CSC(+) . C0SE CANT 

TAHCX)" 330 

1550 PRINT TABC 9>;"SECH = FN 

SCHCX)" CTHC*) - HYPERBOLIC COTANGENT 

1560 PRINT TABC 9>J"CSCH = FN 

CCHCX)" 

1570 PRINT TABC 9 ) ; "COT H = FN F _ FLAG F0R FlKST PL£n 

CTH(X> " 620 1200 1200 

158 REM 

1590 REM NOW WE SET UP LINE G _ FLAG F0R SCALE 

1600 REM 1010 FOR EDITING. 620 g40 g40 

1610 REM 'POKE 32, 2' MOVES 

1620 REM MARGIN S0 CURSOR CAN j _ LG0P1NG VARIAB LE 

1630 REM FIT IN FRONT. 520 b30 530 bAQ bbQ b6Q b6Q 

1640 REM 57 770 g50 , 070 1220 

1650 VTAB C12) 

1660 PRINT "CHANGE LINE 1 1 AS R _ SCALE FACTOR 

DESIRED AND" B20 g30 g40 

1670 PRINT "RUN AGAIN!" 

168 POKE 32,2 R1 . PLOTTING RANGE - START 

1690 LIST 1010 670 770 g20 g20 g30 

1700 REM 

17 10 REM NOW WE RESTORE MARGIN R2 . p L0TTING RAlNlGE . END 

1720 REM AND MOVE CURS0K IN 67 Q 770 g2Q g30 g3G 

1730 REM FRONT OF LINE *. 

17 40 REM 5 _ SCALE 

1750 POKE 32,0 8A0 , 070 

1760 POKE 37,13: POKE 36,0 

17*70 REM SCHC*) - HYPERBOLIC SECANT 

1730 END 300 

1790 REM 

1800 REM SCALE ANT I -CRASHING SECC*> - SECANT 

1810 REM SUBROUTINE. 330 

1820 REM 

1830 IF X < THEN X = SNH C * ) - HYPERQOLIC SINE 

1840 IF X > 279 THEN X = 279 340 

1850 IF Y < THEN Y = 

1860 Ir Y > 159 THEN Y = 1 59 TAH C * ) - HYPERBOLIC TANGENT 

1870 RETURN 36 ° 
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X - HORIZONTAL PLOTTING VALUE 



300 
320 
330 
350 
900 



300 
320 
330 
360 
950 



300 
320 
340 
360 
950 



310 
330 
340 
360 



310 
330 
340 
360 



310 320 
330 330 
350 350 
350 900 



1010 1010 1070 



1200 1210 1830 1330 1840 1840 

Y - VERTICAL PLOTTING VALUE 
850 1020 1020 1030 1030 1110 
1110 1200 1210 1850 1850 I860 
1860 

Yl - FUNCTION VARIABLE 
1010 1020 

£S - KEYSTROKE USERUPPER 
1420 



END 0F VAR. LIST 



David P. Allen is founding partner, 
chairman of the board and executive 
producer of the Video Picture Com- 
pany, Inc., Boston. 

His technical background in- 
cludes consulting engineer for 
Boston Broadcasters, Inc. to design 
and build a new VHF facility for 
channel 5 in Boston. Developed and 
operated for channel 5 the first elec- 
tronic news gathering mobile unit in 
New England. 

Senior Engineer, consultant for 
RCA Corp. in designing educational 
television facilities. 

David Allen's other publications 
include "Television System Design" 
for the United States Air Force. He 
is also a contributing editor for 
Videography Magazine with mon- 
thly production column and other ar- 
ticles. 

Here's a bonus for Atari 400 and 
800 computer users. I discovered 
that with only slight modification 
the function plotter program runs 
beautifully on Atari 400 with only 8k 
of memory. The only feature left off 
from the Apple program is the list of 
functions, since the Atari basic has 
no 'FN' command. Atari users would 
do well to note that contrary to 
some Atari instructions, there is 
not'TAN' function in Atari basic. The 
dilemma fo this absence is easily 
overcome by using 'SIN' function 
divided by 'COS' function whereever 
a target is to be derived. Here is a 
listing for Atari computers. 



M- 
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1 REM FUNCTION PLOTTER PROGRAM 

2 REM BY DAVID P. fLLEN 

3 REM ATARI FLOATING POINT BASIC 

4 REM COPYRIGHT (C) 1986 

5 REM 

6 REM THIS PROGRAM PLOTS A 

7 REM CURVE FOR ANY EXPRESS- 

8 REM ION AS ft FUNCTION OF 

9 REM INCREASING ANGLE FROM 
18 REM 1 TO 369 DEGREES. 

11 REM CHANGE LINE 2980 

12 RBI TO A FUNCTION YOU WISH 

13 REM TO PLOT. 

14 REH 

15 REM 

48 REM ESTABLISH GRAPH STARTING 

41 REM AND ENDING POINTS. 

42 REM 

43 REM 

58 Rl=l R2=360 

88 RET1 

89 REM 

98 REM SET GRAPHIC PARAMETERS 

91 REM 

92 REM 

188 GRAPHICS 7 

288 COLOR 1 

258 SETCOLOR 4,9,4 

268 REM 

269 REM 

2?8 REM PLOT GRAPH AXIS 

271 REM 

272 REM 

388 PLOT 1,1 DRAWTO 1,88 

488 PLOT 1,48 DRAWTO 157,48 

588 FOR 1=8 TO 88 STEP 18 

688 PLOT 1,1 DRAWTO 3,1 

788 NEXT 1 

868 FCR 1=1 TO 158 STEF 39 

988 PLOT 1,38 ORAWTO 1,42 

1880 NEXT I 

1180 REM 

1118 REM 

1128 REM SET FLAGS FOR FIRST aOT 

1130 REM AND SCALE. 

1140 REM 

1158 REM 

2888 F=0 G=0 

2810 REM 

2828 REM 

2838 REM START PLOTTING 

2840 REM 

2850 REM 

2060 REM CHANGE STEP FOR MORE 

2861 REM OR LESS RESOLUTION 

2862 REM IF R1>R2 THEN STEP 

2863 REM MUST BE NEGATIVE 

2864 REM (PRECEDED EY A MINUS 

2065 REM SIGN), 

2066 REM 

2067 REM 

2180 FOR I=R1 TO R2 STEP 3 

2110 REM 

2120 REM 

2130 REM NEXT THREE STEPS ESTABLISH 

2140 REM HORIZONTAL SCALE 

2150 REM 

2160 REM 

2200 IF ABS(R1»=ABS(R2> THEN R=ABS( 

2300 IF A8S(R2»=ABS(R1> THEN R=ABS( 

2480 IF G=8 THEN S=158/R=G=1 

2508 X=I V=0 

2550 REM 

2551 REM 

2552 REM CONUERT DEGREES TO 

2553 REM RADIANS. 

2554 REM 

2555 REM 

2600 X=X*3 14159/180 

2650 RBI 

2651 RBI 

2652 REM PREVENTS CRASHING WHEN 
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2653 REM X=8. 

2654 REM 

2655 REM 

2808 IF X=0 THEN X=1.0E-05 

2850 RB1 

2851 RB1 

2852 REM NEXT LINE DESCRIBES 

2853 REM FUNCTION TO BE PLOTTED. 

2854 REM 

2855 REM 

2900 Y1=SIN(X)*C0S(X^2) 
3800 Y=Y+Y1 
3100 Y=YX20 

3150 REM 

3151 REM 

3152 REM SCALES X. 

3153 RB1 

3154 REM 
3280 X=I*S 

3250 RB1 

3251 REM 

3252 REM RELATES PLOT TO X AXIS. 

3253 RB1 

3254 REM 
3380 Y=-Y+40 

3350 REM 

3351 REM 

3352 REM SUBROUTINE PREVENTS 

3353 REM OFF-SCALE CRASHING. 

3354 REM 

3355 RB1 

3400 GOSUB 5808 

3450 REM 

3451 RBI 

3452 REM PLOTS FIRST POINT. 

3453 REM 

3454 REM 

3500 IF F=0 THEN PLOT X,Y^F=1 
3600 DRAWTO X,Y 
3700 NEXT I 

3750 REM 

3751 REM 

3752 REM DISPLAYS EQUATION OF 

3753 REM PLOTTED FUNCTION BENEATH 

3754 REM GRAPHIC DISPLAY. 

3755 REM 

3756 REM 

3806 LIST 2900 

3900 END 

5880 IF X<0 THEN X=8 

5100 IF X>158 THEN X=158 

5200 IF Y<0 THEN Y=8 

5300 IF Y>80 THEN Y=88 

5480 RETURN 

1 REM FUNCTION PLOTTER PROGRAM 

2 REM BY DAUID P. ALLEN 

3 REM ATARI FLOATING POINT BASIC 

4 REM COPYRIGHT (C) 1980 

5 REM 

6 REM THIS PROGRAM PLOTS A 

7 REM CURUE FOR ANY EXPRESS- 

8 REM ION AS A FUNCTION OF 

9 REM INCREASING ANGLE FROM 

10 REM 1 TO 368 DEGREES. 

11 REM CHrt-GE LINE 2900 

12 REM TO A FUNCTION YOU WISH 
_, 13 REM TO PLOT. 
R1 14 RB1 

15 REM 

16 REM GRAPHICS 8 VERSION 

17 REM REQUIRES MINIMUM OF 

18 RB1 16K RAM MEMORY. 

19 REM 
28 RB1 

40 REM ESTABLISH GRAPH STARTING 

41 REM AND ENDING POINTS. 

42 REM 

43 RB1 
58 R1=1;R2=360 

88 REM 

89 REM 
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96 RBI SET GRAPHIC PARAtETERS 

91 REM 

92 RBI 

106 GRAPHICS S 

288 COLOR 1 

258 SETCOLOR 4,9,4 

268 RBI 

269 RBI 

278 RBI PLOT GRAPH AXIS 

271 RB1 

272 RBI 

388 PLOT l.MKAWTO 1-168 

488 PLOT 1,£8 DRAWTO 314,80 

588 FOR 1=6 TO 168 STEP 19 9 

686 PLOT 1,1 ; DRAWTO 6,1 

766 NEXT I 

886 FOR 1=1 TO 314 STEP 78 

988 PLOT 1,76 DRAUTO 1,84 

1668 NEXT I 

1168 RB1 

1118 RB1 

1128 RBI SET FLAGS FOR FIRST PLOT 

1138 RBI (tC SCALE. 

1148 RBI 

1158 RBI 

2880 F=8 G=6 

2810 REH 

2820 RBI 

2838 RBI START PLOTTING 

2848 RBI 

2850 RBI 

2868 RBI CHANGE STEP FOR MORE 

2861 RB1 OR LESS RESOLUTION 

2862 RBI IF R1>R2 THEN STEP 

2863 REM MUST BE NEGATIVE 

2864 REM (PRECEDED BY A MINUS 

2865 REM SIGN) 

2866 REM 



2867 RBI 

2180 FOR I=R1 TO R2 STEP 3 

2110 RBI 

2128 RBI 

2138 RBI NEXT THREE STEP'S ESTABLISH 

2140 RB1 HORIZONTAL SCALE. 

2150 REM 

2160 RBI 

2260 IF ABS(R , 1»=ABS(R2) THEN R=ABS(R1> 

2360 IF ABS(R2»=A6S<R1> THEN R=ABS<R2> 

2400 IF G=0 THEN S=314/R G=l 

2500 X=l Y=6 

2550 RB1 

2551 RBI 

2552 RBI CONUERT DEGREES TO 

2553 RBI RAOIAHS. 

2554 RBI 

2555 RBI 

2660 X=X*3. 14159/186 

2650 RB1 

2651 RBI 

2652 RBI PREUENTS CRASHING WHEN 

2653 RBI X=0 

2654 RBI 

2655 REM 

2800 IF X=8 THEN X=1.0E-05 
2858 RBI 

2851 RBI 

2852 REM NEXT LINE DESCRIBES 

2853 REM FUNCTION TO BE PLOTTED. 

2854 RB1 

2855 RBI 

2960 Yl=SIN(X>»:OS<X^2> 
3880 Y=Y+Y1 
3100 Y=YS20 

3150 REM 

3151 REM 

3152 RBI SCALES X. 



3153 REM 

3154 REM 
3206 X=1*S 

3250 REM 

3251 REM 

3252 RBI RELATES PLOT TO X AXIS. 

3253 REM 

3254 RBI 
3308 Y=-Y+80 

3350 RBI 

3351 RBI 

3352 RBI SUBROUTINE PREUENTS 

3353 REM OFF-SCALE CRASHING 

3354 REM 

3355 REM 

3480 GOSUB 5888 
3458 RBI 

3451 REM 

3452 REM PLOTS FIRST POINT 

3453 RBI 

3454 RB1 

3580 IF F=0 THEN PLOT X,Y F=l 
3688 DRAUTO X,Y 
3780 NEXT I 
3758 REM 

3751 REM 

3752 REM DISPLAYS EQUATION OF 

3753 REM PLOTTED FUNCTION BENEATH 

3754 RBI GRAPHIC DISPLAY. 

3755 REM 

3756 REM 

3880 LIST 2988 

3988 END 

5880 IF X<8 THEN X=8 

5100 IF X>314 THEN X=314 

5288 IF Y<8 THEN Y=8 

5380 IF Y>168 THEN Y=160 

5400 RETURN 




by BtB Budge, creator of TrJogy and Penny Arcade 
$24.95 32KD»k Applesoft OR Integer 

A great hi res lunar lander, just like Ihe arcade game 1 

• Landscape scrolling 

• Aulo-zoom lor landing site close-up 

• Player control d 360° craft rotation 
■ Spectacular crashes 

• Always chalenging . Improve your score as you u 
your skill 1 

c^iristotle'sc^pple 

by Scot Kamns 

$34.95 48K Disk Applesoft 

A computered tutor for ANY subject, at ANY level 



• 2 modes of instruction tutor and test 

• 3 qui? types— fill-in, multiple choice, and matching, ti 
alternate answers for fill-in questions. 

> Multi level learning reinforemeni. Written by a specials! in 
Computer Aided Instruction iCAl) 

• Highly interactive, no programming knowledge necessary 

• Good for students, home study and correspondence courses, 
government and ham radio exams, etc 



MICRO MEMO 






by Arthur Welk 
$24.95 1HK Disk Applesoft OR Integer 

Finally The Hi res Baseball that's as good as the Apple' 

• 8 differ en I pitches, 6 different swings 

• 3 Deflect on fly balls 

• Player controlled fiekfcng and throwing 
■ Vocal umpire 

• Complete electronic score board 

• Beautiful stadium in full color 



by Barney Sto 

$39.95 48K DISK Applesoft 

A powerful, easy lo use appointment calendar. 

• Includes one-time, weekly, monthly, semi annual and annual 
memos 

• Will remind you one week, two weeks or a month m advance 
to prepare for meetings, make reservations, buy birthday 
presents, etc. 

• Display or print any day's or week's reminders 

• A "perpetual" calendar holds one fuB year, beginning with 
any month Automatically posts birthdays, etc.. into new 
months. 

• Knows most major holidays. 

• Supports Mt Hardware Apple Clock (not required ) 

Calif. Res. Add 6% Sales Tax. No COD'S. Add $2.00 for 
Shipping & Handling. Use Check. Money Order. VISA 
or MASTERCARD (add Exp.). Dealer Inquiries Invited. 

APPLE D a a TM of Apple Computer. Inc. 



ALSO AVAILABLE: ELECTRONIC PRICE SHEET (A sales tool for retailers) $100 48K/Disk Applesoft, and BLOODY MURDER ( A2-player 
knife fight— rated "R" for violence!) $19.95 48K/Disk Integer. 



WATCH FOR IT, COMING SOON- 
The Data Base As Good As Your Apple 
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PROGRESSIVE SOFTWARE 



Presents 
Software and Hardware for your APPLE 



Missile— Anti— Missile (Aplsft) 




Curve Fit 



r y 




Polar Coordinator Plot 



By Dave Garson 
Tape-$9.95 Disk -$14.95 





by TD Moteles 



Tape-$9.95 Disk-$14.95 



Sales Forecast provides the best forecast using the tour 
most popular forecasting linear regression technques. 
NeilDLipson Tape-$9.95 Disk-$14.95 

Single Drive Copy is a utility program, written by Vince 
Corsetti in Integer BASIC, that will copy a diskette using 
only one drive. Tape-$19.95 Disk- $24.95 

Touch Typing Tutor teaches typing. Indicates speed and 
errors made. Finger Bids, Gen.Typing, Basic Language 
and User Supplied. Diskette. Written by Wm. A. 
Massena. $19.95 

Apple Menu Cookbook index-accessed data 
storage/retrevial program. Recipes stored, unlimited lines 
per entry. Easy editing. Formulated after N.Y. Times 
Cookbook. Other useful features included. Written by 
Wm. Merlino, M.D. $19.95 

Mailing List Program maintains complete record of name, 
address, phone no., mailing lables acommodated parallel 
card or built-in printer, easy data entry. 
Diskette 32K $19-95 

Utility Pack combines five versitile programs by Vince 
Corsetti, for any memory configuration. Applesoft 
Update* Integer-to Applesoft conversion * integer BASIC 
copy * Binary Copy Disk 

Append Tape-$9.95 Disk-$14.95 
Solitare — Old European peg game, played by one 
(similar to Chinese checkers). Object — to finish with last 
peg in center. Written by Charles B. 
Smith Tape-$9.95 Disk-$14.95 

Water the Flowers — Math (add., subt, mult., div.,(grades 
1-6 (disk). A graphical program that teaches math. 
JudyPegg ' $19.95 

Catch the Pig — Educ. Pkg, 2, An upper grade school 
game that teaches all four quadrants of the cartesian 
coordinate system. 4 students play at one time with many 
levels of play. Aso included is a Linear Version for lower 
grade school children. Written by Judy Pegg. 

Tape-$9.95 Disk-$14.95 
Financial Pak — 2. Calculates interest rates on bonds 
that is based on due date and days between dates. By 
Neil D. Lipson Disk-$14.95 

- Programs accepted for publication 
• Highest royalty paid 

U.S. and foreign dealer and distributor inquires invited 
All programs require 16K memory unless specified 
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"Builds Serial Files 

"Changes Serial Files to random access Files 
"Adds to End of Serial Files 

"Record insertion and deletion anywhere in Serial File. 
"Move individual records or blocks of records within 
Serial Files 

A File manipulator that allows the user to search for a str- 
ing within a file, sort date by blocks handle many files at a 
time (without exiting the program and saves executed 
files. A file can be saved under many names, viewed in 
several modes, and dumped (totally or partially to a 
printer). 

If you would like to or work with files you must own this 
program! Comes with 10-page doumentation in a binder. 
Because of the size and weight of this program postage 
and handling charge is necessary. 
FILES-Disk only.$49.95 plus $4.95 postage and handling. 
Written by Marc Goldfarb. 
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"A complete package for Educators! Roster is a general 
purpose disk-based record-keeping program for teachers 
at all levels. It allows instructors to create and change 
class rosters label, enter and change tast or assignment 
scores, sort the roster based on student number, student 
name, or rank in class, assign character or numeric 
grades based on any of five criteria (raw score, percent, 
rank percantile rank or Z-score) and Lists scores, totals 
(or averages), and /or grades according to any of these op- 
tions. 

Roster on Disk (only) $49.95 plus $4.95 

Postage and Handling. 
Written by Douglas B. Eamon, Ph.D. 

Hardware 

Light Pen with seven supporting routines. Some of these 
are light meter, light calculator, Light pen, ;and Light pen 
TIC TAC TOE. The light pen connects points in high or low 
resolution graphics. Neil Lipson's program uses artificial 
intelligence; the pen is not confused by outside light. Re- 
quires 48K and Applesoft in ROM. $24.95 
Plus $3.00 Postage and handling. 

TO ORDER 

Send Check or Money Order to: 

P.O Box 273 

Plymouth Meeting, PA 19462 

PA residents add 6% sales tax. 



POSTAGE AND HANDLING 

Please add $150 for the first item and $1.00 for each additional item. 



6502 7.45 10 @ 6.95 50 @ 6.55 100 S> 6.15 


j.r> J3 A P Product* 
HH 15% OFF 


6502A 840 10 l°> 7 95 50 9 735 100 @ 690 


6520 PIA 515 10 @ 4 90 50 @ 4.45 100 (?> 4.15 


PET 4 Voice 


6522 VIA 6.90 10 @ 6.70 50 @ 6.15 100 @5.50 


Musk: System $ 60 


6532 7.90 10 9 7.40 50 @ 700 100 <?> 6.60 


Zenith Z-19 $770 


21I4-L450 4 75 20 @ 445 100 @ 4.15 


KIM-1 $159 


2114-L300 595 20 (?> 545 100 @ 5.10 


2716 EPROM 21.00 5 @ 19.00 10 (81 17.00 


SYM-1 $209 


4116-200nsRAM 7.00 8 @ 6 25 


KTM 2/80 $349 


6550 RAM (PET 8K) 1270 


Leedex Monitor $129 


21102 .90 
S-100 Wire Wrap $2.85 10 @ 2.65 


CMtTMfcs737 $800) 


S-IOOSokferTail $2.35 10 (3 2.15 


All books 15% Off 


n DISKS 


CASSETTES 


I £e>j I ^— -^^- — ^v 


AGFA PE-61 1 


! ^ I i (write tor quantity prices) 


in 5 screw housing 


SCOTCH 8" Disks 10/531.00 


C-10 10/5.65 100/48.00 


SCOTCH 5'/«" Disks 10/S31.50 




Verbatim 5W Disks 1 0/S24.5O 


C-20 10/6.45 100/57.00 


Diskette Storage Pages 1 0/S 3.95 


C-30 10/7.30 100/66.00 


Disk Library Cases 8" • $2.95 5" ■ S2. 1 5 


All other lengths 


BASF BW Disks 10/$25.00 


available. Write for 


BASF 8" Disks 10/S27.00 


price list. 



ATADI INTRODUCTORY SPECIAL 

MIMKI MAHiJOO Atari 800 and an Atari Modules 20°o OFF 



COMMODORE PET-CBM 

Write or call tor quotes 

NEW 8016/32 80 Column Screen 

NEW 8050 950K Dual Drive 

EDUCATIONAL DISCOUNTS 

AVAILABLE 




WRITE FOR CATALOG 

Add $1 .00 per prepaid order for US shipping (UPS) 



. _ _ 1 15 E. Stump Road 

A D LOITipUterS MontgomeryvMle. PA 18936 

(215)699-5826 



PET and APPLE II Users 
PASCAL 

ABACUS Software makes available its version of TINY PASCAL for 
the users of two of the most popular personal computers. 

TINY PASCAL is a subset of the standard PASCAL as defined by 
Jensen and Wirth. It includes the structured programming 
features: IF-THEN-ELSE, REPEAT-UNTIL, FOR TO/DOWN T0-D0, 
WHILE-DO, CASE-0F-ELSE, FUNC and PROC. Now you can learn the 
language that is slated to become the successor to BASIC. 

TINY PASCAL is a complete package that allows you to create, 
compile and execute progams written in the PASCAL language. 
You can save source and object code on diskette or cassette (PET 
version only). Comprehensive user's manual included. The manual ' 
can be examined for $10 (refundable with software order). 

REQUIREMENTS 

PET 16K/32K New ROMS cassette $40 

PET 16K/32K New ROMS diskette $35 

Apple II 32K Applesoft ROM w/DOS $35 

Apple 1 1 48K Applesoft RAM w/DOS $35 

TINY PASCAL User's Manual $10 

6502 Interpreter Listing $20 

FREE postage in U.S. and CANADA 
All orders prepaid or COD 
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ABACUS SOFTWARE 

P. 0. Box 7211 

Grand Rapids, Michigan 



49510 
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AT LAST 

ENHANCE THE FULL CAPABILITIES OF YOUR DISK II 

SOFTOUCH ANOUNCES THE 

" DISC MANAGEMENT SYSTEM " 
EIGHT PROGRAMS ON DISK TO PROVIDE THE USER WITH A 
COMPLETE UNDERSTANDING OF THE DISK DRIVE COMMANDS 
PLUS A UTILITY PACKAGE TO INDEX AND CATAGORIZE ALL 
PROGRAMS WRITTEN FOR THE APPLE II COMPUTER. THE 
SYSTEM PROVIDES FULL SEARCH , EDITING AND DATA 
TRANSFER CAPABILITIES. 

A TWENTY-SIX PAGE BOOKLET PROVIDES DETAILED , 
EDUDVTIONAL TECHNIQUES GIVING A THROUGH UNDERSTAND- 
ING OF ALL DOS COMMANDS. 

INCLUDED ARE SUCH TECHNIQUES AS: 

• INITIALIZATION OF TEXT FILES 

* WRITING S READING OF TEXT FILES 

* CREATING TEXT FILES 
" EDITING FILES 

• TRANSFERRING DATA TO OTHER DISKETTES 

• LISTING OF DATA FILES 

* SEARCHING DATA BY VARIOUS OPTIONS 

A DOCUMENTED LISTING PROVIDES LINE CHANGES FOR 
ADAPTING THE SYSTEM TO PREFORM NUMEROUS OTHER 
APPLICATIONS. 

THE BOOKLET IS WRITTEN IN A MANNER WHICH MAY BE USED 
BY THE NOVICE AS WELL AS THE EXPERIENCED PROGRAMMER. 
DOZENS OF PROGRAMMING TECHNIQUES ARE SHOWN AND FULLY 
DOCUMENTED. ALSO INCLUDED SEPARATELY, IS A PROGRAMMERS 
AID GIVING QUICK REFERENCE TO INTEGER, APPLESOFT AND 
DOS COMMANDS WITH ILLUSTRATIVE EXAMPLES. 

SYSTEM REQUIREMENTS: DISK II I APPLESOFT TAPE OR ROM CARD 

PRICE $24.95 (PROCESSED i SHIPPED WITHIN 4 DAYS) 

SEND CHECK OR MONEY ORDER TO: . 



SOFTOUCH 
P.O. BOX Sll 

LEOMINSTER, MASS. 01453 



HURRY! OFFER EXPIRES SEPTEMBER 30, 1980 

COMPLETE YOUR MICRO COLLECTION: Order 
back issues from now until Sept. 30, 1980 and 
receive our special price. 

Special prices on issue numbers 7 (Oct/Nov 1978) 

through 18 (Nov 1979). 

Issues 7-12 Regularly $1.75 Surface 

Issues 13-18 Regularly $2.25 Surface 

SUMMER SPECIAL PRICE 

Any Issue 7-18 $1.00 in the U.S. 

Any Issue 7-18 $1.25 Foreign 

All back issues will be shipped Surface; Air Mail 
service only at our regular rates. 

ALSO! DO NOT MISS THIS! 

Send MICRO to a friend. For the same limited 
time, you can send a back-issue to someone who 
will enjoy MICRO as much as you! Simply send in 
the address label from your MICRO, along with the 
name and address of who you would like it sent to. 
This issue will be publisher's choice. 

MICRO 

P.O. Box 6502 
Chelmsford, MA 01824 
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KIM - VENTURE 



Number 2 
TM 



1. Microcomputers which can use product: KIM-1 

2. System hardware requirements: The only requirements are a standard 1K KIM-1 and a Phillips-type 
cassette tape recorder. 

3. System software requirements: None. 

4. Product features: KIM-VENTURE is a fantasy-logic game of the "dungeons and dragons genre. The 
objective of the game is to negotiate through a complex maze, find the hidden treasures, and return 
home with them. The KIM's keypad is used to direct movements and to manipulate the environment, 
e.g., picking up treasure and various tools along the route. Feedback in the form of present location, 
hazards, available tools, etc. is provided by cryptic messages written in the KIM alphabet (see "The First 

Book of KIM"). 

5. Product performance: KIM-VENTURE is programmed in three parts which must be loaded separate- 
ly. Of the dozen or so times that all three sections were loaded, not a single load error was encountered. 
The program is well thought through. For example, the LED messages take some time for the inex- 
perienced user to decipher, but provisions have been made to allow the user to lengthen the display 
time, or to have the messages repeated. The cryptic nature of the display is certainly not a liability. 
Deciphering the display adds to the mystery and fantasy of the game. Like most "dungeons and- 
dragons" games, KIM-VENTURE has multiple levels of play. As the player gains experience, he 
discovers new moves and exciting new possibilities to be explored. In short, KIM-VENTURE performs as 

advertised. ,_, ,. . 

6. Product quality: KIM-VENTURE is a well written and very efficient machine language program. It is 

hard to believe that this program fits into 1K. 

7. Product limitations: Not applicable. 

8. Product documentation: The instructions for loading and playing the game are clearly and com- 
pletely described. In addition, a complete source listing of the software is provided and is annotated in 
detail, so that the program can be traced with little difficulty. For the impatient and faithless, the com- 
plete solution to the KIM-VENTURE maze is also provided. 

9. Special user requirements: Other than being able to load a KIM program, there are no special user 

requirements. _ , . «. 

10. Price/Feature/Quality evaluation: Priced at $24.95, KIM-VENTURE is an expensive piece of soft- 
ware; however given the relativly small market for entertainment software for the KIM, the costs of 
developing this type of software, and the high quality of this package, the tradeoffs are fair. 

(Ed's Note- Mr. Leedom will be distributing this program himself and has asked that we mention that he 
is now able to reduce the price significantly to $14.95. This 40 % decrease should increase the tradeoff 
value. To order simply send to the author Robert C. Leedom, 14069 Stevens Valley Ct., Glenwood, MD 

11 Additional comments: If you become impatient with problems that take more than a few minutes 
to solve, or have no understanding of the autistic pleasures of a good puzzle, the KIM-VENTURE would 
be a poor investment. If, on the other hand, you savor the challenge of solving complex problems, KIM- 
VENTURE could be a cheap investment, measured in terms of costs per hour of entertainment. 
(Ed's note: One major feature of the product which is not mentioned but might be of value; KIM-Venture 
comes with a fully-documented scoring program which is loaded and run when the game is finished. 
The scoring program then rates you as having achieved one of eleven levels of skill, and shows you how 
many moves it took you to get to that level. This allows competition between many players by compar- 

12° Reviewer: Dr. Mark H. Meinrath, c/o A.H. Meinrath, 302 Dolphin Place, Corpus Christi, 

TX 78411 



slaving too long 
over a hot computer? 




AUTOMATED 
SIMULATIONS 



The Temple of Apshai 

First in the Dunjonquest™ series. 
Undertake heroic acts within a 
labyrinth filled with treasures and 
fantastic monsters who guard these 
treasures and move in real time. The 
Book of Lore (included) fills in the 
background and describes the 
appearance of the temple. Over 200 
rooms and 30 monsters. There are 16 
million kinds of characters! The best 
of the dungeon computer games. 

For TRS80 Cassette: 16K, Level II; Disk: 
32K, TRSDOS • Apple Cassette: 48K 
Applesoft in cassette or in ROM: Disk: 48K 
Applesoft in ROM • Pet Cassette: 32K, old 
or new ROMs. 

$24.95 cassette • $29.95 disk 



Starfleet Orion 

Fight space battles in your living 
room with 12 game scenarios (data 
files) using 2 to 15 spacecraft. Infini- 
tely expandable, invent more game 
versions of your own. For 2 players. 
Includes Battle Manual and Ship 
Control Sheets. 

For TRS80 Cassette: 16K. Level II; Disk: 32K 
TRSDOS • Apple: Cassette: 16K or 32K. 
integer BASIC in ROM; Disk: 32K, integer 
BASIC in ROM • Pet Cassette: 8K, old or 
new ROMs. 

$19.95 cassette • $24.95 disk 



The Datestones of Ryn 

Dunjonquest #2. Recover the 
datestones from the rogue Rex the 
Reaver and his cutthroats — who've 
stolen the stones from the calendar — 
before time runs out. 
Competitive scoring system: How well 
can you do compared to other 
players? 

For TRS80 Cassette: 16K. Level II; Disk: 
32K, TRSDOS • Apple Cassette: 32K 
Applesoft in ROM or 48K Applesoft on 
cassette; Disk: 48K Applesoft in ROM -Pet 
Cassette: 16K, old or new ROMs. 

$14.95 cassette • $19.95 disk 



Rescue at Rigel 

New! Brings the Dunjonquest series 
to the final frontier. As Sudden Smith, 
with force shield and power gun, you 
make your way through several levels 
and scores of rooms to find and beam 
to safety the prisoners held by the 
evil High Tollah. Quickly, before your 
power pack dies and the Tollah and 
his minions can get to you! 

For TRS80 Cassette: 16K, Level II: Disk: 
32K, TRSDOS • Apple Cassette: 32K 
Applesoft in ROM or 48K Applesoft on 
cassette; Disk: 48K Applesoft in ROM • Pet 
Cassette: 16K, old or new ROMs. 

$19.95 cassette • $24.95 disk 



then it's time 
for a fun break! 



TRIPLE WARRANTY 

©Money back guarantee: If 
you don't like the game for 
any reason whatever, return it 
intact within 10 days of receipt for 
a complete refund. No questions 
asked. 

©Defective warranty: Cas- 
sette not functioning with- 
in 30 days of receipt? Return it to 
us and we'll exchange it. No 
charge, of course. 

£ ~-s Limited lifetime war- 
(forever) ran | y: n matter what 
happens to your cas- 
sette: the dog chewed it. ..you left 
it out in the rain... whatever. No 
matter when it happens. Return 
the remains to us (with $5.00 to 
cover all handling and shipping) 
and we'll send you a brand new 
cassette. 



Morloc's Tower 

Dunjonquest #3. You'll find 3 kinds of 
rings, a magic sword, 2 amulets, 6 or 
so other treasures, 30 rooms, 18 real- 
time command options. ..and a dozen 
types of monsters including the 
heinous Morloc. Easy to learn, a 
challenge to master. Includes game 
program, 1.2 KB data file, 16 page 
manual. 

For TRS80 Cassette: 16K, Level II; Disk: 
32K, TRSDOS • Apple Cassette: 32K 
Applesoft in ROM or 48K Applesoft on 
cassette; Disk: 48K Applesoft in ROM • Pet 
Cassette: 24 K, old or new ROMs. 

S19.95 cassette • $24.95 disk 



TO ORDER: 

Master Charge or Visa card holders: 

charge these to your credit card. Just 

call the appropriate toll free number: 

(800) 824-7888, operator 861. 

In California: (800) 852-7777, op. 861. 

In Hawaii or Alaska: (800) 824-7919 op. 

861. 

Or use the handy coupon: I 

Automated Simulations 

Department OM4 
P.O. Box 4247 
Mountain View, CA 94040 



We believe that computer games 
should be lun, challenging, intellectu- 
ally stimulating.. . and provide you with 
many alternatives and ways to affect 
the outcome. So our games are more 
complex in planning your playing stra- 
tegy. But not in the mechanics and 
rules ol play. With all these games, you 
take command. You determine the 
course of history. 



Invasion Orion 

Pit your skills against the computer! 
Same game system as "Starfleet 
Orion" but you can play it solo. 3 skill 
levels; the computer plays either side 
and takes care of the details. It has 10 
fictional scenarios, 30 ship types, and 
3 weapon systems. 

For TRS80 Cassette: 16K, Level II: Disk: 
32K, TRSDOS • Apple Cassette: 32K 
Applesoft in ROM; Disk: 48K Applesoft in 
ROM • Pet Cassette: 16K, old or new 
ROMs. 

$19.95 cassette • $24.95 disk 



AUTOMATED SIMULATIONS 

Please send me the following games: 

Cass. Disk Game 

Temple of Apshai § 

Starfleet Orion 1 

Invasion Orion I 



Datestones of Ryn |_ 

Morloc's Tower *_ 

Rescue at Rigel *_ 



Plus Shipping & Handling $ 10 ° 

Sales Tax' $ 

Total $ 



My computer is_ 



I enclose my check in the amount 
of 



I Please charge to my 
I . Visa I 1 Master Charge: 
# expires 



Name 

Address. 



"California residents: add 6 or 6.5% tax 



Tiny PILOT for the AIM 



Tiny PILOT is a compact programming language which 
can add a lot of versatility to your microcomputer. This 
version has been developed to run on the AIM 65. It is a 
very inexpensive way to add higher level language 
capability to your system. 



Larry Kollar and Carl Gutekunst 

257 W. Wadsworth Hall 

Michigan Technological University 

Houghton, Ml 49931 



Nicholas Vrtis' article "Tiny Pilot" 
(MICRO 16:41) shows that good 
things still come in small packages. 
However, a few routines, the editor 
in particular, can be deleted or 
replaced when implementing the in- 
terpreter with monitor routines on 
the AIM-65. After tearing the pro- 
gram down, Carl and I finally found 
the last place needing a CMP -CR 
inserted and we had enough room 
left over for two more instructions 
and a startup message. 



The AIM PILOT program is mainly 
built on the framework of Mr. Vrtis' 
program, with some small changes 
to accommodate the new instruc- 
tions. The first of these, P:ON or 
P:OFF, simply turns the printer on to 
off accordingly. To check which way 
the printer is to be switched, the se- 
cond letter following the colon is 
looked at. If this letter is an 'N', the 
PRIFLG ($A411) byte is set to $80. 
Anything else is assumed to be 
P:OFF and $00 is stored in PRIFLG. 
The remaining letters are then skip- 
ped and the next instruction is fet- 
ched. 

The next instruction, H:ADDR, is a 



bit more complicated. This instruc- 
tion calls a machine language 
subroutine at the hexadecimal ad- 
dress ADDR then returns to the 
main program. Fortunately, the 
monitor routines HEX and PACK do 
the ASCII to binary conversions 
easily. The resulting byte is stored 
in the page zero locations called 
HEXSUB. An indirect subroutine call 
is simulated by calling an indirect 
jump then advancing to the next in- 
struction. H: can be used to escape 
the limitations of a 768-byte inter- 
preter by adding one's own func- 
tions such as multiply routines or 
random number generators. Com- 
putation never was PILOT'S strong 
point- 
Obviously, this program will not 
run on a IK AIM. Also, entering 
source code would have been much 
nicer if issue 19:37 (HEX LOAD) 
hand loading the netire gets rather 
tiring, considering that it took about 
eight trys to make PILOT run on the 
AIM. 

To enter PILOT text on the AIM, 
use the text editor like always, 
entering 0500, space, space; and 
begin writing. I have the F1 function 



key set aside to run the interpreter; 
* =0200, G, space will serve as well. 
The interpreter displays its 
"signon" message, then executes 
the program. Some final cautions: 
there are no diagnostics or actual 
error messages, so debugging can 
be difficult. On the other hand, 
PILOT is such an easy language 
that it would be hard to make a sub- 
tle mistake. P: is foolproof enough, 
but I would recommend using the 
full address field for the H: routine 
(four hexadecimal characters). 

PILOT is an economical 
language, both in terms of space 
and cost. I would not throw the $100 
for the BASIC chips unless I had a 
video monitor (more money), and the 
few places Tiny PILOT falls down 
can be easily worked around. The 
language is easy to learn, so give it 
a try. ^ 

References 

1. Tiny PILOT: An Educational 
Language for the 6502, Nicholas 
Vrtis, Micro 16:41. 

2. Sharpen your AIM, Robert E. Bab- 
cock, Micro 19:37. 
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[Explanation of the examples] 

For demonstration purposes, I 
have included three example pro- 
grams. The first program inputs two 
numbers (one at a time) and puts 
them into variables A and B, respec- 
tively. The two variables are then ad- 
ded together and placed into C. The 
machine language routines are 
quick 'n' dirty; i.e. you must enter 
the number as a four-digit string. If 
you wish to input negative numbers, 
they must be inputted in 10's com- 
plement form. Anyone seriously us- 
ing these routines would do well to 
write them over. 

The second program 

demonstrates where Tiny Pilot real- 



it : fii-'U 
R:AND 

P : ON 



T • 



i \mi NUPiChK: 
THEM IN A & i 

the?' 1 TO'GETHEf 






H : yyss 



T:THE SUM IS 



9991 29 JSR EB9E 

9994 A2 LDX #3B 

9906 B5 LDA 93, X 

9S08 20 J SI? EA7D 

9 y B c A DEX 

090C B5 LDA 03.' X 

090E 20 JSR ER84 

U91i 85 5 T H ?B 

0813 Cfl DEX 

0814 B5 LTjfl 03, X 



081C 28 JSR Efl84 

991F 85 STfl 7C 

0821 20 JSR ~ E : flC 

;?924 68 PLfl 

L~i O O — £ 1*3 Q T C 



ly stands out, which is In educa- 
tional purposes. After running this 
program, the user has all he needs 
to know to load and save programs 
on tape. 

The third program should prove 
quite useful to anyone who wants to 
perform program loops. It tests 
variable A to see if it is equal to zero 
and sets the match flag if so. 

For people who wish to experi- 
ment with the H: command, 
remember the high order byte of A is 
at $7B, low order at $7C. Continue 
counting up for the locations of 
other variables. The ANSWER field 
starts at $3E and works its way 
down in memory. 



0888 48 PHA 

8381 29 JSR EB3E 

8884 A2 LDX #3B 

yyy6 Bo LDA 83- X 

0888 28 JSR EA7D 

038B Cfl DEX 

0888 B5 LDfi 03, X 

088E 28 JSR EB84 

0993 Cfl DEX 

0994 35 LDfi Oi, X 
0996 20 JSR EA7D 
0999 Cfi DEX 
099fi B5 LDfi 03, X 
099C 20 JSR Efi84 
099F 85 STfi 7E 

yyfi4 68 PLfi 
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R: TEACHING rROQRfirl 
R:H0W TO USE THE 



- TINV PILOT. 



',$ PROGRAM WILL 
\TM VOU HOW TO 
H> AND USE TINV 
OT PR08RBHS 



WHAT'S VOUR NAME' 



P : ON 

T ; OKAV, *'?-■ 

T:BUSINESS IS TO 

T ! LEP.RN HOW TO LOAD 

T.iiO TLiET TklTCPPOCTPP 



T-fifl TMTq. *•? ■? 



I : THE CONNECTOR IS 
T : HOOKED TO THE TflPh 

! , fw it K ~. iUn i . i nn Pi / 
t - Type ! ' : . ; ;i t c y n < < 

I '. nRE L'i iHE rlONI i UK 

T:ELSE,~THEN~TVPE~ 
T: U L. " THE DISPLfiV 
T:WILL SHOW ''IN=' - 

T:WILL SHOW T* 8 ' FOR 
T:THE FILE NflHE. OF 
T: COURSE, VOU SHiiUL'i 
T:TVPE "PILOT". THEN 
J: THE COMPUTER ttlLL 

T: DRIVE NUMBER OF 

T : THE TAPE VOU HfiNT. 
T:TVPE "i", PUSH THE 
T:PLfiV BUTTON ON ^HE 
T:TfiPE DRIVE, AND 
T:HIT RETURN. MAKE 
T : SURE THE TAPE IS 
T:N0T PAS'T THE START 
j:0F PILOT. 

T:WHEN THE DISPLAV 

T:START THE EDITOR 
T:fiT LOCATION 8588 

T:L8AD IN~VOUR~TEXT 
*LT:DO VOU KNOW HOW 

T : THE TAPE, $? ? 



'.(<•!{_ ± ! * •: '_' ! ; ! <_ Hi!! 
: H L K £ i^F ON Sc — ' WxlL 

T : BE THE SAME fiS 
I: BEFORE. VOU SHOULD 
i : RNSWEK NITH THE 
T : APPROPRIATE RE- 

T:THEN MAKE CHANGES 
T:T0 iHb PROQRAn, RS 
T:V0U WILL STILL BE 



I: IS RuNNiNli RISHT* 
T:VOU CAN SAVE IT ON 



T :TO SAVE VOUR 

T: PILOT PROORftM ON 

T : TAPE/ NRKE SURE 

T : TVPE "L " . A IN Nil 



T:PRONPT FOR A FILE 
TVNAME. GIVE IT A 
T:NANE OF 5 OR LESS 
T: CHARACTERS AND HI1 
T:RETURN. AIN WILL 

T: WHICH TAPE DRIVE 
T:VOU ARE USING. 

"" : OF THE TAPE DRIVE 



t-heho to mou II 

T:USE TINV PILOT 
T: PROGRAMS. GOOD 



T: 
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T • 
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' sHlb FPuLPHH i>i T 
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.DENONSTRATE HOW 
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TO c»t he inn 
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BV USING THE H: 
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COMMAND TO SET 



!_. ' i-1 — x v\ 

i" ; UN 

T : COUNTDOWN 

*LT : t'fi. 



!-LHii il- 




^Cholknger 

^^Program DescripHons" 
^aaeuig pesicner -- 



0981 A5 
8983 DO 

0909 A9 
098B 35 



f fin 

LDA 7B 
BNE 890F 

BNE 098P 
LDA #59 
S I ft fi? 



090E SO RTS 
098F A9 LDA #4E 



;.i. ;_i :• ?:■* D T 



1 J U U N T L-' U 



10 



8 
7 
f, 



L-nNF : ■' 




tmplcto visually 
td organization of O .S . I . gtophics{ No numbers) 
Draw pictures and SAVE up to 32 x 24 as DATA; 
6 shape learn and telocote;rhythmic patterning of 
shapes and design elements;box maker; eraser; 
overlay pat terns; extra 32 x 24 screen memory. 
Real artistic capability for creotive play and study. 
Use DATA in any BASIC program. 8k S 12.95 

ANIMATED MOON LANDER — Unlike anything 
yet achieved on an O.S.I. Look out your cockpit 
window as you land on the moon in real time from 
120 miles. Instrument readings. Graphics that 
amaze mony. With a cartoon sequence depicting 
your successful landing. 8k S 12.95 

CA1CHV/QRD — An originol action word game 
where the p|ayers( 2 to 4) vie for letters which 
they must then use in words on their crossword- 
like boards, or receive o penalty. Computer 
timing for changing letter values, ond different 
board configurations. 
A challenge for all ages. 8k $9.95 

TWO FUNCTION PLOTTER -- Full screen plot 
of 21 points for X - o to b for any 1 or 2 Y = f(x) 
Zero line. Tobies of values. Value of derivative. 
Relative min. and max. 50x50 resolution. 4kS5.95 

DISK SPECIAL — All four programs for J 34.50 

Add $2.50 for Disk based systems. 

Discount of 35% on orders over $ 100. 
All programs professionally packaged 
for your pegboard, with visable program 
descriptions and complete documentation. 
Make check or money order payable to: 



Earfhship 
Box 489 
Sussex, N, J 
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tipple computer 




[apple computer 



JOYSTICK 




Self-centering on both axes (may DC easily 

disabled) 

External trim adjustments to perfectly 

match the unit to your application and 

computer 

Plugs directly into the game I/O socket 

Highest quality components 

throughout 



Attractive case closely matches the 
computer in both color and texture 
Two large pushbuttons 
Full 16-conductor cable to allow 
modification to paddles 2 and 3 or the 
addition of special features 
Completely linear pure resistive circuit 



Available at your dealer for $ 59.95 

or order direct 



Allow 5 weeks '<>i shipment 

All mail ordei add $2.00 loi postage and insurance 

Dealei inquu les invited 



Texas Residents mUi 5 tax 



Apple is a Registered TM ol Apple Computet s. Inc 



MEAN 14: A Pseudo-Machine Floating Point 
Processor for the APPLE II 



Modelled after the Sweet 16, this program supports a 
large variety of mathematical operations on five-byte 
floating point values. This 'processor' can greatly 
simplify and enhance your mathematical processing 
power. 



R.M. Mottola 
Cyborg Corp. 

342 Western Ave. 

Boston, MA 02135 



In the beginning of the life of the 
Apple II computer, and obstacle had 
to be overcome in the writing of the 
firmware. As we know, the 6502 is 
an eight bit microprocessor, but all 
too frequently routines require 
numeric operations involving double 
precision integers. Repeating com- 
mon operations every time they are 
required could be done, but it is not 
very space efficient. For that matter, 
performing the requisite register 
set-ups to use some general pur- 
pose subroutines can also deplete 
available memory space, if the 
routines are called frequently. What 
was needed was an arithmetic pro- 
cessor that could handle two-byte 
integers. So, pseudo-machine pro- 
cessor, which in reality, is a 
machine language program that 
behaves like a processor. 

This elegant solution is called the 
"SWEET 16 PSEUDO-MACHINE IN- 
TERPRETER" and is known and us- 
ed by many Apple programmers. It 
lives from $F689 to F7FA on the FO 
Integer Basic ROM found in regular 
Apple II computers. From a software 
point of view. It is used very much 
like you would use a 
Microprocessor. Programming it re- 
quires various instructions and 
operands. Hand assembly is easy 
because the instruction set isn't 
long and the format of the operators 
is very straight-forward. A popular 
resident asembler, the Lisa 
assembler by Randall Hyde, will 
even assemble Sweet 16 
mnemonics. 

The Mean 14 pseudo-machine 
floating point processor was 



modelled after the Sweet 16. It too is 
programmed like a hardware pro- 
cessor. Instead of being designed to 
process two-byte integers, the Mean 
14 can perform many mathematical 
operations on five-byte floating 
point values. These values are for- 
matted in the standard Applesoft 
variable representation described in 
the Applesoft manual. 

What It Is Used For 

The Mean 14 processor was writ- 
ten to facilitate floating point 
machine language programming on 
an Apple II Plus or a standard Apple 
II with Applesoft ROM card. Since 
Apple does not provide any 
documentation for the floating point 
routines in Applesoft, it is pretty dif- 
ficult for those wishing to write 
floating point routines in assembly 
language. Even knowing the loca- 
tions and entry requirements of 
those routines is only partially 
helpful if either complex or 
repetitive functions must be per- 
formed. Of course, you could always 
write your more involved functions 
in Applesoft Basic, but the Mean 14 
will always perform at least ten 
times as fast and probably much 
more. The reason for this is simply 
that the Mean 14 has little of the in- 
terpreter overhead that Applesoft 
has. Using the example of adding 
two values, if Applesoft is used, and 
the values are represented as 
variables which have not been used 
before, Applesoft must allocate 
space for them first. And if arrays 
have been dimensioned. They must 
be moved up to make space for the 
new variables. If the variables or ar- 



rays happen to collide with strings, 
then string "house-cleaning" must 
take place. In machine terms, all 
this takes an awful lot of time. As an 
added kicker, even more time must 
be allowed if you use constants in- 
stead of variables. 

On the other hand, Mean 14 
doesn't have to do all of this. Its in- 
terpreter overhead is very small and 
since you, the programmer, supply 
the operand either by specifying 
pointers or, in the Immediate Mode, 
by actually supplying the floating 
point value, the floating point 
routines don't have to search for or 
convert anything. Mean 14 spends 
its time processing numbers — not 
trying to find them or converting 
ASCII strings into them. 

What It Does 

Mean 14 is a very simple kind of 
interpreter. You give it a number and 
it looks it up in a table where it picks 
up the address of the subroutine 
which performs the specific func- 
tion required. Most of those func- 
tions already exist in Applesoft. 
Some require set-ups to make entry 
and exit easier. In all cases, the in- 
struction set has been designed to 
make straight line machine 
language floating point arithemetic 
a lot easier. 

That last line indicates one of the 
possible shortcomings of the Mean 
14 for your particular floating point 
requirement. It can process data on- 
ly in a straight line. At present, it 
contains no conditionals in the in- 
struction set. This apparent problem 
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isn't really all that bad when you ac- 
tually use the Mean 14. For my own 
applications, I've found that testing, 
branching, and loop operations can 
best be handled outside of Mean 14, 
in 6502 assembly language. This is 
because, relative to the amount of 
time it takes even the simplest 
floating point operation to execute, 
all sorts of branching and testing, 
including entries and exits into and 
out of Mean 14, can be accomplish- 
ed very quickly. For this reason, con- 
ditionals were left out ot the Mean 
14's instruction set. But that certain- 
ly doesn't mean that you couldn't 
add them if you particular applica- 
tion required them. 

Using Mean 14 

Making use of the Mean 14 pro- 
cessor in you machine language 
programs is easy. The only prere- 
quisite, besides a working 
knowledge of assembly language, is 
a fundamental knowledge of the for- 
mat of Applesoft variables. For 
more on this, including a handy utili- 
ty program that converts any value 
to its floating point equivalent, see 
the predecessor to the article, "Ap- 
plesoft Floating Point Routines, 
MICRO 27:53". Once this is 
understood, Mean 14 assembly is 
very straight-forward. 

1. Note that Mean 14 and the Ap- 
plesoft subroutines that it calls 
could leave any and all registers in 
an undeterminable state. If you 
need certain registers in specific 
states, its a good idea to write your 
self both a Save and a Restore 
routine and remember to JSR to the 
Save before entering Mean 14. You 
could even add these routines to the 
Mean 14 entry and exits if you like. 

2. Enter Mean 14 with a JSR to 
MEAN14 ($8E00 in the source listing 
provided.) All code between this JSR 
and a Mean 14 "RET" will be in- 
terpeted by the Mean 14 processor. 
Remember that byte sequence is a 
function of the addressing mode. In 
the Implied mode, any operator is 
followed by the next operator. In Im- 
mediate mode, an operator is im- 
mediately followed by a five byte 
operand (constant) in Applesoft 
floating point variable format. In the 
Absolute mode, the operator must 
be followed by a two byte pointer to 
the first memory location contain- 
ing a floating point value. In the In- 



direct mode, the operator is follow- 
ed by a pointer which points to a 
pointer which points to a floating 
point value. Remember, all pointers 
must be in standard 6502 low-byte, 
high-byte order. 



5. Be careful to avoid floating point 
errors such as Overflow and Divi- 
sion by Zero, as Applesoft routines 
tend to dump you into Basic if an er- 
ror occurs. A scheme to avoid this 
has also been outlined in "Ap- 
plesoft Floatng Point Subroutines". 



3. Consider the following section of 






code: 






6. 


Good Luck! 












P 


2000 


SUB 1 


STY 


YSAVE 


j 


SAVE Y 


2002 




STX 


XSAVE 


# 


SAVE X 


2004 




•JSR 


MEAN 14 


i 


ENTER MEAN 14 


2007 




DFB 


Co 00 03 


i 


-*LDA $300 


200 A 




DFB 


C4 05 03 


i 


a- ADD $305 


20 OD 




BFB 


45 SI 00 






20 1 




DFB 


00 00 00 


i 


•*SUB #1 


2013 




DFB 


oc 


i 


-*ABS 


2014 




DFB 


81 40 03 


i 


*STA ($340) 


2017 




DFB 


11 


i 


*RET 


20 1 S 




LDX 


XSAVE 


i 


RESTORE X 


201 A 




LDY 


YSAVE 


I 


RESTORE Y 


20 1 C 




RTS 









Both the X and Y registers were 
saved before entering Mean 14 in 
this example. To make the code 
representation less confusing, its a 
good idea to show the Mean 14 
mnemonic equivalents of the defin- 
ed bytes in the comments field. I like 
to designate them with an asterisk 
but any appropriate scheme should 
do. 

4. If your machine language routines 
are to be called from Basic and if 
values obtained from Mean 14 
operations will be used by Basic, 
you might want to store values 
directly into the memory locations 
allocated to Applesoft variables. 
This will make the results of your 
machine language calculations 
directly available to Basic. Although 
there are subroutines in Applesoft 
to fine a variable by its name, they 
can take a lot of time to execute. An 
easier approach is to "know" where 
your variables are by allocating 
them first, in your Basic program. 
Thus, if the first line of your program 
is: 

10 A = 0:B = 0:C = 0:D = 

then you'll know that the first 
variable is A, the second is B, etc. 
The pointer at locations $69,$69A 
tells you the beginning of the simple 
variable space, so you should be all 
set. 



Format Of Mean 14 Operators 

Mean 14 instructions are 
represented as single byte numberic 
values. Two quantities are 
represented in this byte — instruction 
and addressing mode. Since there 
was room to spare (there are only 
four addressing modes and twenty 
some-odd instructions) a very sim- 
ple scheme was devised to include 
both. There are also many unused 
values so the instruction set could 
easily be expanded. An instruction 
is represented with the two high 
order bits indicating the adressing 
mode and the lower six bits in- 
dicating the operation 



7 


6 


5 


4 


3 


2 


1 





I I I 



Addressing Mode Instruction 

Mean 14 Addressing Modes 

The Mean 14 pseudo-machine 
processor instructions use four dif- 
ferent addressing modes. They are: 

IMMEDIATE 
ABSOLUTE 
INDIRECT 
IMPLIED 

IMMEDIATE- Just like any pro- 
cessor, the Mean 14 instructions 



28:68 



MICRO — The 6502 Journal 



September 1980 



that allow immediate addressing 
use the value following an operator 
in memory for the operand. Since we 
deal with floating point values, the 
five memory locations following the 
operator must contain the floating 
point operand, this must be in Ap- 
plesoft variable format. 

EX. Load FPAC1 with the value "0" 

40 00 00 00 00 00 LDA#0 

\ \ \ 

OPERATOR OPERAND SYM- 
BOLIC 



MEAN 14 INSTRUCTION SET 



LDA Load FPAC1 with memory 

IMMEDIATE = S40 
ABSOLUTE = SCO 
INDIRECT = $80 



ST A Store FPAC1 in memory 



ABSOLUTE = SCI 
INDIRECT = SSI 



M — > FPAC1 



FPAC1 — > M 



ABSOLUTE- The two bytes that 
follow the instruction (operator) in 
the absolute mode must contain the 
address of the first byte of the 
desired buffer. 



EX. Store FPAC1 
$1F00-$1F04 



in locations 



C1 



00 



OPERATOR 
BOLIC 



1F STA $1 F00-$1 F04 

\ \ 

OPERAND SYM- 



INDIRECT- In this addressing mode, 
the two bytes that follow the 
operator must contain the address 
of a two byte pointer which points to 
the first byte of the buffer. This ad- 
dressing mode is useful when loop 
processing an number of variables. 
It allows the pointer to the variable 
to be changed and, since the pointer 
is not a part of the Mean 14 object 
code, you needn't write self modify- 
ing code to perform a loop. Again, 
both the operand and the pointer 
must be represented in the low byte, 
high byte format. 

EX. Store FPAC1 in $2FF0-$2FF4 

81 00 20 STA($2000) 

Where $2000,$2001 point at $2FF0 



TAB Transfer FPAC1 to FPAC2 
IMPLIED = S02 



FPAC1 — > FPAC2 



TBA Transfer FPAC2 to FPAC1 
IMPLIED = S03 



ADD Add memory to FPAC1 

IMMEDIATE = S44 

ABSOLUTE = SC4 

INDIRECT = SS4 



FPAC2 — > FPAC1 



M + FPAC1 — > FPAC1 



SUB Subtract FPAC1 from memory 

IMMEDIATE = S45 
ABSOLUTE = SC5 
INDIRECT = S35 



M - FPAC1 — > FPAC1 



MUL Memory times FPAC1 

IMMEDIATE = S46 
ABSOLUTE = SC6 
INDIRECT = S86 



DIV Memory divided by FPAC1 

IMMEDIATE = S47 
ABSOLUTE = SC7 
INDIRECT = SS7 



M * FPAC1 — > FPAC1 



M / FPAC1 — > FPAC1 



IMPLIED- Certain instructions per- 
form operations which do not in- 
volve variables. There include 
register functions and exits form 
Mean 14. 

EX. Transfer FPAC1 to FPAC2 
02 TAB 

EX. Exit Mean 14 
11 RET 



NOP No op era t i on 

IMPLIED = SOS 



SQR Square root of FPAC1 
IMPLIED = SO? 



MPC + 1 



— > FPAC1 



EXP FPAC2 raised to the power 

of memory 

IMMEDIATE = S4A 
ABSOLUTE = SCA 
INDIRECT = S3 A 



FPAC2 



M — > FPAC1 



INT Inteser value of FPAC1 
IMPLIED = SOB 



INT ( FPAC1 ) — > FPAC1 



ABS Absolute value of FPAC1 
IMPLIED = *0C 



ABS ( FPAC1 ) — > FPAC1 



SGN Value of the sisn of 
FPAC1 

IMPLIED = *0D 



SGN ( FPAC1 ) — > FPAC1 



LOG Natural log of FPAC1 
IMPLIED = *0E 



LOG ( FPAC1 ) — > FPAC1 



CVA Convert tuio-byte integer 

in Applesoft inteser variable 
format to its floating point 
e s u i va lent. 

ABSOLUTE = SCF 
INDIRECT = *8F 



MX — > FPAC1 



CVB Convert two-bvte integer 

in 6502 format to its floating 
point equivalent. 

ABSOLUTE = *D0 
INDIRECT = $90 



ML.MH — > FPAC1 



MUSICAL COMPUTER 
I AND II 

Learn How to Read Music! 

Written by an M.A. educator with 
over 20 years of music experience. 
This two program cassette pro- 
vides an alternative to music 
education. 

• Treble & Bass Note Reading 

• Telling Time 

• Notes and Rests 

• Sharps and Flats 

• Signs and Symbols 

• Tempo Definitions 

$34.95 plus $1.00 for postage 

and handling 

Check or Money Order Please 

(Mi. residents add 4 % sales tax) 

Check: DApple II 32K 

□TRS-80 Level 1116 K 

Name: 

Address: 

Address: 



COMPUTER 

APPLICATIONS 

TOMORROW 



P.O. Box 605 

Birmingham 

Mi. 48012 



RET Exit MEAN 14 

IMPLIED = *11 



MPC — > PC 



»»END OF PASS 1 
**END OF PASS 2 

0300 
0300 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0300 
0800 
0800 
0800 
0300 
0800 
0300 
0800 
0300 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0300 



* » 

* MEAN- 14 » 

* PSEUDO-MACHINE » 
» FLOATING POINT » 

* PROCESSOR VI * 

* * 

* R M MOTTOLA * 

* 10/79 * 
■» * 



SOFTWARE ADDRESSES 



TEMPL 


EPZ 


S1E 


TEMPH 


EPZ 


I1F 


MPCL 


EPZ 


*4C 


MPCH 


EPZ 


«4D 


FPAC1 


EPZ 


*9B 


FPAC2 


EPZ 


CAS 


1 FIRMWARE ADDRES 


INT>FP 


EOU 


SE2F2 


FPSUB 


EQU 


SE7A7 


FPADD 


ECIU 


SE7BE 


FPLOG 


EQU 


SE941 


FPMUL 


EQU 


SE97F 



FPDIV1 EQU SEA66 



0800 




0300 




0800 




0800 




0300 




0800 




0800 




0800 




0800 




0800 




3EO0 




3E00 




8E00 




8E00 




8E00 




3E00 




8E00 


68 


3E01 


354C 


8E03 


68 


3E04 


354D 


8E06 


205F8E 


8E09 


200F8E 


8E0C 


4C093E 


SEOF 


AOOO 


3E11 


B14C 


8E13 


AA 


8E14 


293F 


8E16 


OA 



FPLOAD 


EQU 


*EAF9 


FPSTR 


EQU 


4EB2B 


TR2M 


EQU 


SEB53 


TR1>2 


EQU 


*EB63 


FPSGN 


EQU 


*EB90 


FPABS 


EQU 


SEBAF 


FPINT 


EQU 


*EC23 


FPSQR 


EQU 


4EE3D 


FPEXP 


EQU 


*EE94 


' 


ORG 


SSEOO 




OBJ 


$800 



; MEAN 14 PSEUDO-MACHINE 
; FLOATING POINT PROCESSOR 



MEAN 14 


PLA 






STA 


MPCL 




PLA 






STA 


MPCH 




JSR 


PC I NC 


M14A 


JSR 


M14B 




..IMP 


M14A 


M14B 


LDY 


#40 




LDA 


( MPCL 1 




TAX 






AND 


»S3F 




ASL 





GET M14 CODE LOCATION 
I FROM RETURN ADDRESS 



i GET ONE INSTRUCTION 



I GET CORRECT SUBROUTINE 
i ADDRESS FROM TABLE 
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atl/ 


hm 




IAY 










8EA0 






8E1S 


C8 




I NY 










8EA0 






8E19 


B9A08E 




LDA SUBTBL. Y 


, AND 


SHOVE IT 






8EA0 




SUBROUTINE ADDRESS TABLE 


8E1C 


48 




PHA 










8EA0 




1 


8E1D 


88 




DEY 










8EA0 


F8EA 


SUBTBL ADR FPL0AD-S1 


8E1E 


B9A03E 




LDA SUBTBL, Y 










8EA2 


6D3E 


ADR STR-*1 


8E21 


48 




PHA 










8EA4 


62EB 


ADR TR1>2-S1 


8E22 


205F3E 




.JSR PC INC 


; INCREM. Ml 4 


P. C. COUNT 


8EA6 


52EB 


ADR TR2>1-*1 


8E25 


3A 




TXA 










3EA8 


BDE7 


ADR FPADD-S1 


8E26 


29C0 




AND »t«CO 


iGET 


ADDRESSING 


MODE 


8EAA 


A6E7 


ADR FPSUB-*1 


8E28 


F034 




BEQ M14G 


, IMPLIED? 






8EAC 


7EE9 


ADR FPMUL-S1 


8E2A 


1020 




BPL M14D 


; IMMEDIATE? 






8EAE 


65EA 


ADR FPDIV1-S1 


8E2C 


2940 




AND *t«40 










8EB0 


8D3E 


ADR N00P-41 


3E2E 


D013 




BNE M14C 


. ABSOLUTE? 






8EB2 


3CEE 


ADR FPSQR-«1 


8E30 


B14C 




LDA (MPCL).Y 


: INDIRECT 






8EB4 


93EE 


ADR FPEXP-*1 


3E32 


851E 




STA TEMPL 


;GET 


POINTER 


TO 


ADDRESS 


8EB6 


22EC 


ADR FPINT-S1 


8E34 


C8 




INY 


. OF OPERAND 






8EB8 


AEEB 


ADR FPABS-*1 


8E35 


B14C 




LDA (MPCL).Y 










8EBA 


3FEB 


ADR FPSGN-S1 


8E37 


851F 




STA TEMPH 










8EBC 


40E9 


ADR FPLOG-41 


8E39 


83 




DEY 










8EBE 


718E 


ADR C0NV1-*1 


8E3A 


B11E 




LDA ( TEMPL > . Y 










8EC0 


8E3E 


ADR C0NV2-41 


8E3C 


48 




PHA 










8EC2 


9A8E 


ADR RETURN-* 1 


8E3D 


C3 




INY 










8EC4 






8E3E 


B11E 




LDA ( TEMPL ) . Y 










8EC4 




i FLOATING POINT CONSTANTS 


8E40 


48 




PHA 










8EC4 






8E41 


9013 




BCC M14E 










8EC4 


910000 


VALUE 1 HEX 9100000000 ; V. 65536 


8E43 


B14C 


M14C 


LDA (MPCL).Y 


iGET 


ADDRESS 


OF 




3EC7 


0000 




3E45 


48 




PHA 


; OPERAND 






8EC9 






3E46 


C8 




INY 










3EC9 






8E47 


B14C 




LDA (MPCL).Y 










8EC9 






8E49 


48 




PHA 










3EC9 




LENGTH EQU *-MEAN14 


SE4A 


900A 




BCC M14E 














END END 


8E4C 


A54C 


M14D 


LDA MPCL 


; SAVE P. C. AS 


ADDRESS 








8E4E 


48 




PHA 


iOF 


IMMEDIATE 


OPERAND 








8E4F 


A54D 




LDA MPCH 
















8E51 


48 




PHA 
















8E52 


A905 




LDA #S5 


: AND 


OFFSET P 


C. 


5 BYTES 






8E54 


9002 




BCC M14F 
















8E56 


A902 


M14E 


LDA tt*2 


; OFFSET P. C. 


2 BYTES 








8E58 


206 18E 


M14F 


JSR PCADD 
















8E5B 


68 




PLA 


, PULL OPERAND 


ADDRESS 


















AND 


TRANSFER 








8E5C 


A3 




TAY 


TO P 


AND Y REGS 


FOR SUBS 






8E5D 


68 




PLA 
















3E5E 


60 


M14G 


RTS 


JMP 


VIA RTS 












3E5F 




i 














•***»•»•»****•»»*■***»*•****«** 


8E5F 


A901 


PC INC 


LDA #S1 












« 


* 


8E61 


18 


PCADD 


CLC 












* 


SYMBOL TABLE — V 1. 5 » 


3E62 


654C 




ADC MPCL 












* 


* 


8E64 


854C 




STA MPCL 












***■**«*•***«**•»»**»»»**•*** 


3E66 


9003 




BCC PCI 
















8E6S 


E64D 




INC MPCH 










LABEL. LOC. 


LABEL LOC LABEL. LOC 


3E6A 


18 




CLC 
















3E6B 


A000 


PCI 


LDY ««0 










»* ZEF : "-',r: 


3E6D 


60 




RTS 
















:3E6E 




t 












TEMPL 00 IE 


TEMPH 00 IF MPCL 004C 


3E6E 


AA 


STR 


TAX 










MPCH 004D 


FPAC1 009D FPAC2 00A5 


3E6F 


4C2BEB 




JMP FPSTR 
















8E72 


85 IE 


C0NV1 


STA TEMPL 
















8E74 
8E76 
8E73 


341F 
AOOO 
Bl IE 




STY TEMPH 

LDY »»0 

LDA (TEMPL), Y 










TEMPL 


00 1 E 


TEMPH 00 IF MPCL 004C 












MPCH 


004D 


FPAC1 009D FPAC2 00A5 


8E7A 


48 




PHA 










INT>FP 


E2F2 


FPSUB E7A7 FPADD E7BE 


3E7B 


C8 




INY 










FPLOG 


E94 1 


FPMUL E97F FPDIV1 EA66 


3E7C 


BUE 


CIA 


LDA (TEMPL). Y 










FPLOAD 


EAF9 


FPSTR EB2B TR2>1 EB53 


8E7E 


A8 




TAY 
PLA 










TR1>2 


EE63 


FPSGN EB90 FPABS EBAF 


8E7F 


63 












FPINT 


EC23 


FPSQR EE3D FPEXP EE94 


utau 


2UH 2t2 




JSK 1NI>I-P 
















3E83 


A5A2 




LDA FPAC1+45 










MEAN14 


8E00 


M14A 3E09 M14E SEOF 


3E85 


1007 




BPL NOOP 










M14C 


SE43 


M14D SE4C M14E SE56 


3E87 


A9C4 




LDA WVALUE1 










M14F 


SE53 


M14G 3E5E PC INC 8E5F 


8E89 


A08E 




LDY /VALUE 1 










PCADD 


SE61 


PCI 8E6B STR 3E6E 


8E8B 


20BEE7 




JSR FPADD 










C0NV1 


SE72 


CIA 3E7C NOOP 3ESE 


3E8E 
8E3F 


60 
851E 


NOOP 
C0NV2 


RTS 

STA TEMPL 










C0NV2 


3E3F 


RETURN 3E9B SUBTBL 8EA0 


8E91 


341F 




STY TEMPH 










VALUE 1 


SEC4 


END SEC9 


3E93 


AOO 1 




LDY tt*l 
















8E95 


B11E 




LDA ( TEMPL ) , Y 
















3E97 


48 




PHA 
















8E93 


88 




DEY 
















8E99 


FOE 1 




BEQ CIA 
















8E9B 


63 


RETURN PLA 


;PULL MEAN 


14 


RETURN 








3E9C 


68 




PLA 


1 ADDRESS FROM 


STACK 








8E9D 


6C4C00 




JMP ( MPCL ) 
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SPECIAL INTRODUCTION 
ONLY '9 9.9 5 

fOR THE FINEST PARALLEL INTERFACING ELEMENT FOR THE PET/CSH* 
The P.l.E.-C is a very complete interface. It cches in an attractive case and 

MOUNTS 5IRECTUY TJ THE COMPUTER. THUS ELIMINATING THE NEED =OR EXTRA SPACE IN THE 
BACK e OR SOXES AND MESSY PILES OF "IRE. YOUR SYSTEM CAN LOOK PROFESSIONAL. THE 
P.I.E.-C HAS COMPLETE ACDRESS SELECTA3ILITY OF DEVICE NUMBERS 1 THROUGH 30. AND. 
THERE'S NO NEED TO DISASSEMBLE YOUR UNIT TO CHANGE THE ADDRESS; IT'S AS SIMPLE 
AS SETTING THE 01 P SWITCH. ThIS SELECTABILITY ALLOWS BOTH YOUR LiTTER-OUALITY 
PRINTER (NEC SPINWRITER. ETC.) AND YOUR GRAPHICS PRINTER TO BE CONNECTED AT THE 
SAME TIME BUT USED SE°ARATELY 3Y ADDRESSING EACH WITH A DIFFERENT DEVICE"*. 
SOW THAT'S REAL EFFICIENCY!! 

The P.I.E.-C will convert non-stanoard PET codes to true ASCII code. It can be 

SWITCHED IN OR OUT OF SERVICE AS NEEDED. FOR INSTANCE. IF YOUR SOFTWARE DOES THE 
CONVERSION. JUST SWITCH THE CONVERTER OF=. IF YOU NEED THE CONVERSION =OR 
PRINTING FROM BASIC. JUST SWITCH IT ON. 

OUR INTERFACE PROVIDES EXTENSION OF THE IEEE-188 PORT ON THE PET/C3.M. YOU DON'T 
NEED TO 3UY OTHER CABLES 3ECAUSE OUR INTERFACE USES THE SAME CARD EDGE TYPE AS 

the computer. Thus the cable prom the floppy disc to the PET/C3M will now con- 
nect INTO THE INTERFACE. 

THE P.I.E.-C IS INTERCONNECTED WITH. AND POWERED BY. THE PRINTER USING A 5' OATA 
CABLE SUPPLIED WITH THE INTERFACE. THIS MEAN THAT THERE IS NO POWER SUPPLY 
NECESSARY AS WITH SERIAL INTERFACES. THE *OV IS SUPPLIED ON »l.1# 18 OF THE CON- 
NECTOR USED 3Y ALL "RUE CENTRONICS STANDARD INTERFACED "RINTERS. ThIS INCLUDES 

the Centronics "79. °1. and many others INCLUDING the Anadex HUNTERS. 

Our interface goes beyond the Centronic's compatibility. Therefore, it jill 

operate the Anderson- Jacobson AJ8U1 and the "Paper Tiger" 3y Integral Oata 

Systems. In fact, it will drive any parallel-input printer that uses 3 data bits 

and 2 handshaking lines. 

If you are interested in the most interface for your money, then place your order 

today. Our introductory price ; or the P.I.E.-C interface won't last long. So. 

DON'T DELAY . . . YOU MAY HAVE TO PAY THE LIST PRICE OF $119.95. 

Please specify your PET/CSH t"pe (new or old ROMs) and the 3Rand and "00£l of the 

PRINTER YOU WILL BE USING. WE ATTACH THE CORRECT CONNECTOR ON THE CABLE. 

All orders must be prepaid or COO cash. Add S5 for shipping and handling. 
Maryland residents add ;Z sales tax. 

LemData Products. P.O. Box 1030. Columbia. .Id. 21Wf 
Phone (301) 730-32S7 

•PET/CBM ar« tr*d««*M»i of Co-wwdo.e loslnesl Machine* 



EDUCATIONAL SOFTWARE 
for the APPLE II and APPLE II PLUS 

VERBAL SKILLS 

Diskettes with Applesoft Programs and data base can be used to Im- 
prove verbal skills Interactively. Intended as study aids for college board 
type exams (E.G.. SAT. CRE. LSAT. ACT, fTlAT. ETC). Programs Include a resi- 
dent editor for expanding or modifying data lists. Realistic multiple choice 
questions are generated with several options. Requires no computer ex- 
perience making It Ideal for students. 



Vocabulary Bullder- 

Rnalogy- 

Sentence Completion- 
Verbal Skill* Pak- 



Over 1600 entries with op- 
tion of matching synonyms 
or antonyms - $19.95 
Over 1200 word relation- 
ships - &19.95 
Equivalent to 6 SflT tests 
-319.95 

All three diskettes for Just 
J44.95 



SLIWR ENTERPRISES 

EDUCATIONAL SOFTWARE DEPflRTfTIENT 

POST OFFICE BOX 7266 
HfimPTON. VIRGINIA 23666 

• Apple Is a registered trademark of Apple Computer. Inc. 



32 K BYTE MEMORY 

RELIABLE AND COST EFFECTIVE RAM FOR 
6502 & 6800 BASED MICROCOMPUTERS 



AIM 65-*KIM*SYM 

PET*S44-BUS 



• PLUG COMPATIBLE WITH THE AIM-65/SYM EXPANSION 
CONNECTOR BY USING A RIGHT ANGLE CONNECTOR 
(SUPPLIED] MOUNTED ON THE BACK OF THE MEMORY 
B0AR0 

• MEMORY BOARD EDGE CONNECTOR PLUGS INTO THE 
6800 S 44 BUS. 

• CONNECTS TO PET OR KIM USING AN ADAPTOR CABLE 

• RELIABLE-DYNAMIC RAM WITH ON BOARD INVISIBLE 
REFRESH-LOOKS LIKE STATIC MEMORY BUT AT 
LOWER COST AND A FRACTION OF THE POWER 
RE0UIRED FOR STATIC BOARDS 

• USES -5V ONLY, SUPPLIED FROM HOST COMPUTER 

• FULL DOCUMENTATION. ASSEMBLED AND TESTED 
B0AR0S ARE GUARANTEED FOR ONE YEAR AND 
PURCHASE PRICE IS FULLY REFUNDABLE IF BOARD IS 
RETURNED UNDAMAGED WITHIN 14 DAYS. 

ASSEMBLED WITH 32K RAM WI9.00 

8 WITH 16K RAM _ J349.00 

TESTED WITHOUT RAM CHIPS J279.00 

HARD TO GET PARTS (NO RAM CHIPS) 

WITH BOARD AND MANUAL S 109 CO 

BARE BOARD & MANUAL J49.00 



PET INTERFACE KIT-CONNECTS THE 32K RAM BOARD TO 
A 4K OR 8K PET CONTAINS: INTERFACE CABLE. BOARD 
STANDOFFS. POWER SUPPLY MODIFICATION KIT AND 
COMPLETE INSTRUCTIONS 149.00 



U.S. PRICES ONLY 



-..J .!>■ Sa-. ->7--,v. 



"i i : i i i j ! 9 : £ 1 :> j ji i^ 



S*aB?3OT«t" i22"5Ur'5»T£"J 




16K MEMORY 
EXPANSION KIT 



$58 



FOR APPLE, TRS-80 KEYBOARD. 
EXIDY, AND ALL OTHER 16K 
DYNAMIC SYSTEMS USING 
MK4116-3 OR EQUIVALENT 
DEVICES. 

• 200 NSEC ACCESS, 375 NSEC 
CYCLE 

* BURNED-IN AND FULLY 
TESTED 

* 1 YR. PARTS REPLACEMENT 
GUARANTEE 

• OTY. DISCOUNTS AVAILABLE 



ALL ASSEMBLE0 BOARDS AND 
MEMORY CHIPS CARRY A FULL ONE 
YEAR REPLACEMENT WARRANTY 



compuTCR Device 

1230 UJ.COI.Lin5 AVE. 

ORflflOE, CO 92668 

(714)633-7280 

lidcnls please add 6% sales lax. Mastercharge 
ft Visa accepted. Please allow 14 days lor checks to 
clear bank. Phone orders welcome. Shipping charges 
will be added lo all shipments. 



The MICRO Software Catalog: XXIV 



Software announcements for the 6502 based systems 



Mike Rowe 

P.O. Box 6502 

Chelmsford, MA 01824 



System: 

Memory: 

Hardware: 

Description: 

prehensive 



Name: Speed Reading and 

Comprehension 

PET/CBM 

16 or 32K 

cassette drive 

A flexible and corn- 
system in which the 
teacher creates a permanent test 
and question data file on a cassette. 
This file is used by one of the other 
programs to give a rapid scan, and 
then a timed read scan, followed by 
questions which are corrected. All 
statistics including reading speed, 
in words per minute, are then 
printed on the screen (printer op- 
tional). The system has many op- 
tions including: adjustable read 
rate, various methods of displaying 
the text for reading, and directions 
for customizing the programs for in- 
dividual perferences and teaching 
strategies. 

Copies: Just released 

Price: $49.95 (extra manuals, 

$2.00) 
Includes: Six programs, sample 

data file, manual, all in 

a six cassette plastic 

binder 
Author: Richard A. Brown, 

Ph.D. 
Available: Abbott Educational 

Software 

334 Westwood Avenue 

E. Longmeadow, MA 

01028 

Name: WP-INT 

System: Ohio Scientific 

Memory: 48K RAM 
Language: Basic, 6502 Assembler 
Hardware: C2-OEM and C3 series 
Description: A form letter genera- 
tion package that unites two OSI 
software systems, WP-2 and OS- 



DMS. The system extracts informa- 
tion from OS-DMS data files to 
prepare from letters with OSI's word 
processor, WP-2. Supplied on two 
floppy disks. 
Price: $80.00 

does not include OS- 
DMS or WP-2 
Available: DCS Software Pro- 
ducts 

2729 Lowery Court 
Zion, IL 60099 

Name: Copy T-File 

System: Apple ii, Apple II plus 

Memory: 16K with ROM 

32K without 
Language: Applesoft 
Hardware: Disk II 
Description: Copies any EXEC file or 
sequential TEXT file to another disk. 
You can display the files field by 
field and directly change any field in 
the TEXT file before copying. Modify 
your own EXEC programs directly 
without going thru the 'Make-EXEC 
routine. Lets you display and study 
professional EXEC programs. Self- 
prompting. Simple and easy to use. 
Price: $15.95 

Includes: Disk with program and 

instructions 
Author: David Weston 

Available: David Weston 

P.O.Box 25943 

Los Angeles, CA 90025 



Name: 

System: 

Memory: 



Language: 



Supersort 

PET/CBM computers 
851 bytes at the top of 
memory, plus parts of 
the second cassette 
buffer. The demo pro- 
gram uses 7k. 
Machine, the loader 
and demonstrator pro- 



grams are in Basic. 
Description: Enchanced version of 
KEYSORT (MICRO 23 & 24). It shares 
KEYSORT's advantages, and adds 
several features requested by 
MICRO readers: Sorts 1 or 2 dime- 
sion arrays of strings or integers on 
any of up to 127 fields, with optional 
subsorting on macth to any other fil- 
ed or fields, all in ascending or 
descending order. Delimiters are not 
needed with this, and data may be 
easily viewed without using MID$ 
functions needed by KEYSORT. 
Copies: Just released 

Price: $34.95 

Includes: full instructions, com- 
plete demo program, 
assembly source 
listing 
Author: James Strasma 

Available: Programma Interna- 
tional 

3400 Wilshire Blvd. 
Los Angeles, CA 
90010 



Name: Video Message 

Display 

System: Apple II 

Memory: 48K RAM 
Language: Apple Integer Basic 
Hardware: Color tv set, RF 
Modulator or color 
Video Monitor, Moun- 
tain Hardware Clock, 
Apple Disk Drive 
Description: Converts a computer 
into an electronic bulletin board. A 
set of simple commands allows the 
user to define a series of "slides" 
that can be displayed in any se- 
quence and for varying amounts of 
time. Low resolution dislplays offer 
normal-sized characters in normal, 
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reverse, or blinking video. High 
resolution Displays permit inter- 
mixed characters of three different 
sizes in either normal or reverse 
video. In addition, the background 
of the "slide" can be displayed in 
any high resolution color. Profes- 
sional version, model VMP, is 
available for the Apple II. Provides 
hardcopy slide logs for use by televi- 
sion stations. 
Price: VMD— $149.00 

VMP— $199.00 
Available: Serendipity Systems, 

Inc. 

225 Elmira Road 

Ithaca, N.Y. 14850 

Name: Micro-Inventory (MIN) 

System: Apple II, Applesoft 

Firmware Board 
Memory: 48K RAM 
Hardware: Tv set, RF modulator 
or video Monitor, Ap- 
ple disk drive, Op- 
tional printer 
Description: Developed with the par- 
ticular needs of small businesses in 
mind, this package provides owners 
of such firms with effective inven- 
tory control. Each inventory item is 
assigned a unique Item Identifier by 
the user, and data is stored in 
logical files. Although the capacity 
of the system is normally limited to 
six files of 200 items each, multiple 
diskette drives can be used to ac- 
commodate additional inventory 
items. Reports provided include 
Items On File, Items On Hand, Items 
On Order, etc. Each report can be 
generated to include all inventory 
items or only those specified by the 
user. 

Price: $149.00 

Available: Serendiptiy Systems, 
Inc. 

225 Elmira Road 
Ithaca, N.Y. 14850 



Name: 
System: 



Memory: 

Language: 

Hardware: 



Micro-General Ledger 

Apple II Plus, Apple II 
w/Applesoft Firmware 
Board 
48K RAM 

Apple Integer BASIC 

Tv set with RF 

modulator or video 

monitor, Apple disk 

drive 

Description: Designed with the 

needs of very small businesses in 

mind, MGL allows the user to retain 

financial control while requiring a 

minimum knowledge of accounting. 

It features a user-defined chart of 



accounts, interactive data entry and 
editing routines, extensive error 
detection devices, and automatic 
end-of-month and end-of-year reset- 
ting of totals. Reports produced in- 
Sheet, and an Accounts Reconcilia- 
tion Report. The system can accom- 
modate 75 accounts and each ac- 
count may be assigned a total of 
nine sub-account numbers. 
Price: $149.00 

Available: Serendipity Systems, 
Inc. 

225 Elmira Road 
Ithaca, N.Y. 14850 

Name: AMS/OIL Inven- 

tory/Sales/Price List 

System: Apple II 

Memory: 32K 
Language: ROM Applesoft 
Hardware: Disk II 
Description: Program maintains 
price list, handles sales both retail 
and wholesale, with or without ship- 
ping, maintains inventory with mon- 
thly and year-to-date formats. 
Creates, sorts and provides easy up- 
date to price lists. Can be used for 
AMWAY as well. 



Price: 



Author: 
Available: 



$30.00 includes disk 

$15.00 w/o inventory 

program 

Allan Blackburn 

AWB's 

1226 Wade Hampton 

Fort Worth, TX 76126 



Name: Satellite 

System: Apple II, Apple II plus 

Memory: 32K 
Language: Applesoft ROM/RAM 
Description: Provides the amateur 
radio operator or shortwave listener 
with all data necessary to track 
spacecraft in either circular or ellip- 
tical orbits. It will provide enough in- 
formation so the operator can aim 
an antenna at the spacecraft and 
keep up with it as it crosses the sky. 
The program has two main modes. 
Information for the satellites is pro- 
vided in a number of publications, 
includeing QST, Worldradio, and 73 
magazines. Program to screen or 
printer. 

Copies: Just released 

Price: $14.95 cassette, or 

user provided diskette 
$19.95 on diskette by 
author, postpaid. 
Specify Applesoft 
RAM or ROM 
Author: Al Jensen WA7TIB 

Available: Al Jensen 

19111 First Avenue 



Name: 

System: 

Memory: 

Hardware: 

Description: 



NW 

Seattle, WA 98177 

The Voice 

Apple II, Apple II plus 

48K 

No special 

Gives your apple the 
power of speech! Use the standard 
voice vocabulary to speak an 
endless combination of phrases and 
sentences, or easily record your 
own vocabulary set to make your 
Apple say anything you like. Each 
data disk can store up to 80 words 
or phrases which can be sorted for 
quick reference. What's more, the 
Voice allows you to speak from any 
Basic program by using Print Com- 
mands. Guaranteed to be the best 
Apple voice program available at 
any price. 

Price: $39.95 disk 

Available: Muse Software 
330 N. Charles Street 
Baltimore, MD 21201 

Name: Elementary Math Edu- 

Disk 

System: Apple II 

Memory: 48K 
Language: Integer Basic 
Description: Written and designed 
by a professional educator. Con- 
tains an arithmetic readiness test 
and four interactive lessons design- 
ed to teach elementary math skills 
on nine different skill levels. This 
program is self-demonstrating and 
requires little or no instructor 
assistance. Recommended for the 
student with no prior arithmetic ex- 
perience, and as a supplement in 
higher level remedial situations. 
Price: $39.95 disk 

Available: Muse Software 

330 N. Charles Street 
Baltimore, MD 21201 

Name: Inventory Program 

System: Apple II, Apple II Plus 

Memory: 48K (Firmware card on 

Apple II) 
Language: Applesoft, Assembly 
Hardware: 2 Disk drives, 132 

column printer 
Description: Maintains a complete 
inventory on up to 800 items. Every 
category included to back order as 
well as LOC, COST, etc. Generates 
search reports, keeps running ac- 
count of what was sold YTD and 
much more. 

Price: $140.00 with manual 

Author: Gary E. Haffer 

Available: Software Technology 

for Computers 

P.O.Box 428 

Belmont, MA 02178 



APPLE 
BUSINESS 
SOFTWARE 

GENERAL LEDGER 

If you are a business person who is looking for 
ultimate performance, take a look at this out- 
standing General Ledger package from Small 
Business Computer Systems. 

Our package features six digit account 
numbers, plus thirty-one character account 
names. We have ten levels of subtotals, giving 
you a more detailed income statement and 
balance sheet with up to nine departments. Either 
cash or accrual accounting methods may be used. 
The cash journal allows a thirty-three character 
transaction description and automatically cal- 
culates the proper off-setting entry. You may 
print the balance sheet and income statement for 
the current month, quarter, or any of the pre- 
vious three quarters. Also, this year's or last 
year's total are included on the income statement, 
depending on the current month. 

There is virtually no limit on entries, since you 
may process them as often as you like. Two 
thousand (1.000 from GL; 1 ,000 from any exter- 
nal source) can be processed in one session. 

ACCOUNTS RECEIVABLE 

Sound business management requires you to 
keep up-to-date reports regarding the status of 
your accounts receivable. 

Now, from the same company that revolu- 
tionized accounting on the Apple II computer, 
with their conversion of the Osborne/ McGraw- 
Hill General Ledger program, you may now 
obtain the Accounts Receivable package you 
have been waiting for. 

Our package allows you to assign your own 
alpha-numeric customer code up to six char- 
acters. Date of the last activity, as well as 
amounts billed this year and last year arc main- 
tained. This Accounts Receivable system main- 
tains six digit invoice numbers, six digit job 
numbers, invoice amount, shipping charges, sales 
tax (automatically calculated), total payments as 
well as progress billing information. You may 
enter an invoice at any time; before it's ready for 
billing, after you have billed it, and even after it's 
paid. This package also prints reports which list 
the invoices you have not billed yet, open items, 
paid items, and an aging analysis of open items. 

In the final analysis, making your bookkeeping 
easier is what our software is all about. With our 
General Ledger package you can format your 
own balance sheet and income statement. 
Department financial statements may be for- 
mated differently. You have complete freedom to 
place titles and headings where you want them, 
skip lines or pages between accounts and 
generate subtotals and totals throughout the 
reports— up to ten levels if you need them. Ac- 
counts Receivable is designed to provide you 
with complete up-to-date information. The 
program will print customer statements as well as 
post invoice amounts to any of the accounts 
maintained by our General Ledger package. 
These packages will support any printer/inter- 
face combination. General Ledger requires 1 10 
columns, Accounts Receivable requires 130 
columns. 

Suggested Retail: 

Individually Si80.00 

Together $330.00 

SMALL BUSINESS COMPUTER SYSTEMS 

4140 Greenwood 

Lincoln, Nebraska 68504 

(402) 467-1878 



HAS YOUR APPLE READ ANY GOOD 
PROGRAMS LATELY? 

APPLE II DISK SOFTWARE 
DATA BASE MANAGER 
IFO PROGRAM 

The IFO (INFORMATION FILE ORGANIZER) can be used for many ap- 
plications such as sales activity, check registers, balance sheets, 
client/patient records, laboratory data reduction, perscription informa- 
tion, grade records, mailing lists, A/R, job costing and much more. This 
can be accomplished easily and quickly without prior programming 
knowledge. 

Up to 1000 records with a maximum of 20 headers (catagories) and 10 
report formats (user defined) can be stored on a single diskette, informa- 
tion can be sorted on any header, both ascending and descending in 
alpha/numeric field. Mathematical functions can be performed on any 2 
fields to manipulate the information. Information can be searched on 
any header using >,<,= >,= <, = , and first letter. Mailing list format 
provided. Fast assembly language sort, search and read routines. Many 
error protection devices provided. Put your application program 
together in minutes instead of hours. 

PROGRAM DISKETTE and instruction manual....$100.00 
MAILING LIST PROGRAM and instruction 
manual. ..$40.00 
INVENTORY PROGRAM 

2 disk drives, menu-driven program. Inventory categories include: 
STOCK#, DESCRIPTION, VENDOR ID, CLASS, LOCATION, REORDER 
PT., REORDER QTY, QTY ON HAND. All records can be entered, chang- 
ed, updated, deleted, or viewed. Reports can be sorted in ascen- 
ding/decending order by any category. There are 7 search reports (3 
automatic). Calculates $ VALUE of inventory and YTD, MTD, and period 
items sold. Accumulates inventory over a 13-month period. Plus much 
more. Requires a 132-column, serial/parallel printer, Complete turnkey 
operation with bootstrap diskette. 
Program diskette and instruction manual. ..$140.00 
PAYROLL PACKAGE 

2 disk drives, menu-driven program. Employee history include: NAME, 
ADDRESS #. ADDRESS #2 CITY, STATE, ZIP, FED EX, STATE EX., 
SOCIAL SEC.#,DATE EMPLOYED, DEPT », CODE, EMPLOYEE #, 
STATUS, MARITAL STATUS, PAY RATE, OT RATE, VAC RATE, # VAC 
HRS. and PENSION PLAN. Program can generate weekly or biweekly 
payroll. Prints W-2, QTR REPORT, PAY CHECKS, MASTER AND CUR- 
RENT files. FEDERAL and STATE witholding taxes are built into pro- 
gram. Maintains a CASH DISBURSEMENT journal, Accumulates payroll 
for a 53 week period. Generates numerous type of payroll reports. 
Allows data to be searched, sorted and edited. Prints DEDUCTION 
register and more. Maintain up to 125 EMPLOYEES/EXPENSES for 
quick and easy PAYROLL. Numerous error protection devices provided. 
PROGRAM diskette and instruction manual. ..$240.00 
•PLEASE SPECIFY STATE WHEN ORDERING 

APARTMENT MANAGER 

2 disk drive, menu driven program written in assembly language and AP- 
PLESOFT II. All you will ever need to manage your apartment. Handles 
up to 6 BUILDINGS with a maximum of 120 units each. Complete turn- 
key operation. Data categories include APT tt, TYPE, TENANT NAME, 
PETS, CHILDREN, SECURITY DEP., PET DEPOSIT, POOL DEP, MISC 
DEP, RENT ALLOWANCES, DATE MOVED IN, VACANCY DATE, REF- 
FERAL, CONDITION OF APT, DAMAGE AMT and COMMENT LINE. 
Search, sort, enter, edit and vacate tenates. Maintains a MTD and YTD 
rent recipts as well as complete utility reports, rent lost by vacancies. 
Maintains expenses, vacated tenants report and much more. 
PROGRAM blSKETTE and INSTRUCTION 
MANUAL..$325.00 
PROFESSIONAL TIME AND BILLING 

2 disk drive program written in assembly language and APPLESOFT II. 
Completely menu-driven, Maintain all billing of clients and personnel. 
Generates and invoices. Numerous reports based on all types of 
criteria. Easy data entry for RATES, CLIENTS, and MATTERS. Has 
SEARCH, SORT, CHANGE (on screen editing), VIEW and BALANCE 
FORWARD. IF your are a JOB CONTRACTOR, ATTORNEY, ACCOUN- 
TANT, GENERAL CONSULTANT, or anyone that needs to charge for 
time, this program is a must. Complete turnkey operation. Numerous 
REPORTS are produced to aid in the TIME ANALYSIS PROCESS. All this 
and much more. 
PROGRAM DISKETTE and INSTRUCTION MANUAL...$325.00 

SPEED READING 

PROGRAM DISKETTE AND INSTRUCTION 
MANUAL..$200.00 

ALL PROGRAMS REQUIRE 48K and APPLESOFT II ON ROM OR AND 
APPLE II PLUS. ALL SOFTWARE IS COMPATABLE WITH PASCAL 
SYSTEMS. PROGRAMS RUN FROM ANY PORT OF THE COMPUTER 
WITH SERIAL/PARALLEL PRINTERS. REQUIRES 1 DISK DRIVE 
UNLESS OTHERWISE NOTED. 
SEND CHECK7MONEY ORDER or COD. To: 

SOFTWARE TECHNOLOGY for COMPUTERS 
P.O BOX 428 
BELMONT, MA 02178 

OR AVAILABLE FROM YOUR LOCAL DEALER. 
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687 (cont'd.) COMPUTE 3, (Mar./Apr., 1980) 

Butterfield, Jim, "Memo to Machine Language 
Programmers," pg. 96. 
Ways to find zero page space on the New PET ROM. 

Rehnke, Eric, "Read PET Tapes with your AIM," pg. 102 - 104. 
Use the General Instruments AY3-8910 device to generate 
music on 6502 boards. 

Zumchack, Gene, "Nuts and Volts," pg. 105-107. 
READ/WRITE timing on the 6502 

Rehnke, Eric, "Read PET Tapes with Your AIM," Pg. 110-112 
This program opens up PET software to the AIM owners. 

Herman, Harvey B., "KIMEX — 1," pg. 113 
PROM, RAM and I/O expansion for the KIM 

Carlson, Edward H., "Fast Tape Read/Write Programs for 
your OSI," Pg 115-117 

Add this useful utility to your OSI C1 or C2 machines. 

Flacco, Roy, "Applications Review: Logic Analyzer for KIM," 
Pg. 118- 120 
A review of a useful piece of hardware. 

688. Softside 1, No. 3 (March 1980) 

Porter, Gale, "The Care and Feeding of Integer Hi-Res," pg. 9 
-11. 

Pep up your Apple Integer Programs with Hires Graphics. 

Anon, "Programming Tips," pg. 15-16. 
A routine for rounding off decimal numbers, on the Apple. 

Chipchase, Frank D., "Renumber and Merge the Easy Way," 

pg. 19-21. 

Make this useful utility into an Exec program, for the Ap- 
ple. 

Anon, "Programming Tips," pg. 15-16. 
A listing in Integer for this game on the Apple. 

Micklus, Lance and Summers, Murray R., "Treasure Hunt," 
pg. 33-34. 

Listing for this Adventure-type game. 

Cross, Mark, "Bouncing Ball Catcher," pg. 46-47 
An Applesoft program employing Hi-Res graphics. 

Anon, "Switch Puzzle," pg. 50-51. 
A game for the Apple. 

Rubber Apple Newsletter (March, 1980) 

Musgrave, J. E., "Change Disk Volume," pg. 2. 
Short routine for the Apple machine language. 



689. Recreational Computing 8, No. 5, Issue 44 (March/April 
1980) 

Wells, Arthur, Jr. "Recreational Apple II Hi-Res Graphics," 
pg. 4-8. 

Lines, Triangles, and other shapes on the Apple. 

Lindsay, Len, "Pet Games," pg. 11. 
About 75 programs for the PET are reviewed. 

Hatch, Larry, "Raging Robots," pg. 34-35. 

Landmine the PET Screen to outsmart the robots. 

Keyser, Earl, "Frogs for the Apple," pg 34-35. 
Listing for the game "Frogs." 

Gull, Steve, "Playing Simon on the PET," pg. 35 
Try to duplicate the sequence of tones that the Apple 
plays. 

690. Creative Computing 6, No. 3 (March, 1980) 

Fricke, Victor, "Three Mile Island," pg. 38 

Notes on running the popular nuclear power plant pro- 
gram. 

Mecca, Lorraine, "The Computer Connection," pg. 58-59. 
Contained in this article is a discussion of modems and 
the D.C. Hayes Micromodem II. 

Cox, Ken, "PET as a Remote Terminal," pg. 60-62. 
Notes on implementing a PET terminal program. 

Howerton, Christopher, "Ches Clock," pg. 132-133. 
Is speed chess your game? Use your Apple as a clock! 

Carpenter, Chuck, "Apple-Cart," pg. 150 - 153. 

Discussion of the use of POKEs, Applesoft READ.. .DATA, 
String Parsing, Text Typer, etc. 

Yob, Gregory, "Personal Electronic Transactions," pg. 160 

-163. 

Discussion of PET Logic, Two's Complement Tutorial, Light 

Pen etc. 

691. Personal Computing 4, No. 4 (April, 1980) 

Neiburger, E. J., "Score Your Heart Attack Risk," pg. 48-50. 
Run this program, then take no changes — get a checkup 
(Apple). 

Wood, Don, "Word Processing with Your Apple," pg. 68 - 70. 
Notes on Apple writer, Super-Text, EasyWriter, Personal 
Text Processor, Aptype, Text Editor Version 3.0, etc. 

Nichols, John M., "Housebreaking Your New Pet," pg. 73-74 
How to run programs written for the 8K PET on the newer 
16K, 32K PET. 
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Kilobaud Microcomputing No. 40 (April, 1980) 

Baker, Robert W. "Pet-Pourri," pg 9,14. 
Notes on PET Basic. 

Anon, "Ohio Scientific's Small Systems Journal," 

A continuation of a discussion of multiple user systems. 

Hayek, Tom, "The Basic Programmer's Toolkit," pg. 34-35. 
Have a look at this helpful utility for the PET. 

Chamberlain, Bruce S., "Fast Apple Peripherals," Pg. 92-96. 
How to interface high-speed serial printers to the Apple II. 

Tenny, Ralph, "Get Started With MicroStart," pg. 118-128. 
Hardware for experimenting with the 6502 and other CPU 
chips. 

Tannenbaum, Larry M., "KIM Vari-Stepper," Pg 146. 

An automatic variable speed single-stepper for the KIM. 

David, D. J., "PET's Librarian," Pg. 172-173. 
An automatic variable speed single-stepper for the KIM. 

Gordon, Hal T., "Instruction Sets Examined and Compared," 
pg 174-180.. 

The second part of this article looks at on-chip and off 

chip registers. 
Dunmire, Jerry, "Indexing for the PET," pg. 186-187. 

A solution for the lack of a counter on the PET tape 

recorder. 

Hitt, Peter G., "Build a Home for your Superboard II, "pg. 202 
-205. 

House your OSI Superboard with a power supply. 

693. Byte 5, No. 4 (April 1980) 

O'Flaherty, John, "A White-Noise Generator for the Apple 
II," pg. 68. 

A simple machine language program turns the Apple into 

a white-noise generator. 
Chamberlin, Hal, "Advanced Real-Time Music Synthesis 
Techniques," pg. 70-94, 180-196. 

Discussion of difficulties in computing waveforms fast 

enough for real-time music systems. 

Cross, Mark A., "Apple Audio Processing," pg. 212-218. 
The Apple is capable of playing several notes 
simultaneously with simple homebrew interfaces. 

694. Southeastern Software Newsletter, Issue 17 (April 1980) 

Staff, "Binary Search and Sort Modules for Names File," pg. 
2-8. 

Notes on searching and sorting on the Apple. 

Chipchase, Frank D., "Better Utilization of Apple 
Computer's Renumber and Merge Program," pg. 8-9. 
Set up a renumber and merge Binary file. 

695. OSI User's Independent Newsletter (January 1980) 

Curley, Charles, "Machine Language Memory Test," pg. 2. 
How to adapt Jim Butterfield's Memory Test (First Book of 
KIM) to the OSI or other 6502 machines. 

696. MICRO, No. 23 (April 1980) 

Lacy, Allen J., "Applesoft II Shorthand," pg. 5-8. 
This routine allows a programmer to type in an entire Ap- 
plesoft command with the use of one control key. 

Tripp, Robert M., "The Value of 16 Bits," pg. 9. 
Notes on 8 bit vs. 16 bit processors. 

Crouch, Bill, "The Apple Stripper," pg. 11-12. 

Remove REM statements from your Basic program for the 
'run version'. 

Taylor, William L., "Graphics and the Challenger C1P, Part 
4," pg. 16-19. 

This installment shows how the previous material can be 

used to create pictures. 



Blalock, John, M., "SYMple Basic Data Files," pgs. 21-25. 
Implement Data Save and Data Load on your SYM-1. 

Evans, Mel, "A Perpetual Calendar Printer for the AIM," pg. 
27-29. 

A few programming tricks are used in this AIM program. 

Wagner, Roger, "Bi-directional Scrolling," pg. 23. 
Scroll the Apple page down as well as up. 

Hyde, Randall, "The SY6516 Pseudo-16 Bit Processor," pg. 

36-37. 

This new microprocessor extends the capabilities of the 
6502 with some 16 bit operations and improved address- 
ing, etc. 

Strasma, Rev. James, "PET Keysort," pg. 43-56. 
A complete general purpose keysorting program. 

Swank, Joel, "KIM Scorekeeper," pg. 59-62. 
A general purpose, multi-player scorekeeper that can be 
used as a part of larger game programs. 

Morris, E.D., Jr., "OSI Basic in ROM," pg. 65-66. 
To help you understand OSI Basic, a table of the locations 
of the subroutines to service the main commands is 
presented. 

Rowe, Mike, (Staff) "The MICRO Software Catalogue: XIX," 
pg. 71-72. 
Ten programs are described. 

Dial, Wm. R., "6502 Bibliography: Part XIX," pg. 77-78. 
Some 65 more articles are referenced. 

697. Rainbow, Issue 1 (January 1980) 

Rennard, Bob and Simpson, Rick, "Character Input and Out- 
put," pg. 4-5. 

Information on Apple Machine Language. 

Marcuse, D., "Applesoft ROM Card," pg. 4-5. 

How to use the Apple mini-assembler with the ROM card 
installed. 

Turnbull, Ernie, "Audio Monitor," pg. 5-6. 

How to monitor your Audio from the Cassette while 
loading the Apple. 

Butler, John W., "Geneology Program," pg. 6. 
Keep track of 250-350 families on a single Apple diskette. 

Simpson, Rick, "Mini-assembler and the Language System," 
pg. 7. 

Use the language system and still have the services of the 

miniassembler, Apple. 

Rennard. Robert, "Responses and Remarks," pg. 8-9. 
Apple output registers, Improved Apple documentation, 
etc. 

Barnes, John, "An Applesoft Sound Routine," pg. 12. 
Machine language entered by an Applesoft program for 
tone generation. 

Mathes, Stan, "Make your Apple Sing," pg. 13. 
Write a music program on the Apple. 

Wagner, Roger, "The Reliable Applesoft Append," pg. 15. 
Notes on using the Applesoft append program. 

Anstis, Stuart, "Catch a Star," pg. 23. 
Listing for an Apple Game. 

698. The Target (March/April) 

Anon., "Grapevine," pg. 1. 

Changes to zero page usage in AIM-65 Basic. 

Sliber, Steve, "Short-Cut Auto-Number," pg. 2-5. 
A modification of the Short-Cut program which provides 
for auto line numbering. 

Bresson, Steve, "Slow Display," pg. 3. 
Slow down the rate at which characters are displayed on 
the AIM display. 
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Sellers, George, "KIM-4 Motherboard," pg. 6. 
Add a KIM-4 motherboard and RAM memory to your 
AIM-65 by a simple hardware modification. 

Clark, Jim, "An AIM 65 Scanning Subroutine — SCAN," pg. 
7. 

Scan the keyboard to see if a key is pressed, get the key 

and respond to it in AIM programs. 

Peterson, Gary, "Exterminating Some Invisible Bugs," pg. 8. 
High voltage spikes can be removed at your AIM power 
supply by using a varistor and a few capacitors and diode 
devices. 

Bresson, Steve, and Semancik, Bill, "Lunar Lander," pg. 9. 
Real time lunar lander for the AIM. 

699. Interface Age 5, (May 1980) 

Rothman, Howard H., "Advertising with the Apple Com- 
puter," pg. 66-68. 

Put your advertising message on the SCROLLING 

WONDER. 

700. SoftSide 1, No. 3 (April 1980) 

Ford, Robert, "Juggle," pg. 9-13. 
Juggle a number of balls on this Apple graphics program. 

Pachin, D., "Applesoft Ampersand," pg. 16. 
Use the ampersand to initiate special routines. 

Hill, Alan, "Shoot Out," pg. 19-22. 
A two-person game for the Apple graphics. 

Sander-Cederlof, Bob, "Jig-Saw Puzzle," pg. 28-29. 
Try your hand at assembling a jig-saw puzzle on the Ap- 
ple. 

Crossman, Craig, "The Invisible Signature," pg. 32-33. 
Put your own label within your Apple program and hide it! 

Sander-Cederlof, Bob, "Space War," pg. 35-37. 
A two-player graphics game for the Apple. 

Kapur, Mitch, "Melody," pg. 40-47. 
Create and save your melody using this Apple program. 

Blackwood, George H., "Intimate Instructions in Integer 
Basic," pg. 49-52. 

Starting a series of installments on detailed programming 

instruction for the Apple II. 

Anon., "Display Control Characters," pg. 52. 
Use this short routine to detect or reveal special 
characters in Apple programs. 

701. Creative Computing 6, No. 4 (April 1980) 

Lindsay, Len, "Atari in Perspective," pg. 22-30. 
Comparisons of the pro's and con's of the PET and the 
Atari 800 micros. 

Bradford, William, "Ten to the Thirty-Eighth," pg. 104-110. 
Here is a game called GOOGOL for the Apple. 

Carpenter, Chuck, "Apple-Cart," pg. 122-129. 
A listing and discussion of a program, Simple File Builder. 

702. Rainbow 2, Issue 2 (February 1980) 

Headland, Rex, "Dollar Formatting Gosub," pg. 4-5. 
A dollar formatting routine for the Apple. 

Wagner, Roger, "Exceeding the Speed Limit with your Apple 
II," pg. 8. 

How to speed up your Apple program. 

Lipson, Neil D., "An Improved Hi-Res Light Graph," pg. 
11-12. 
Display up to five color graphs on the same screen. 

Wagner, Roger, "Fast GR-Screen Clear," pg. 14. 
A routine in either Integer Basic or Applesoft Basic. 



Wagner, Roger, "An Unlikely Character," pg. 14-15. 
Type strange characters with special key combinations 
on the Apple. 

Wagner, Roger, "Append-Ectomies in Integer and 
Applesoft," pg. 15. 

After joining binary data to the end of a program, use this 

routine to remove the appended part. 

Deardon, Hinkley, W., "From the Pits," pg. 16-17. 
Some notes on computer accessory advertising and supp- 
ly practices. 

Martin, Bill, "Crossing Your Wires," pg. 17-18. 
Notes on running remote monitors, better audio, etc. Ap- 
ple. 

Busdiecker, Roy, "The Number Game: An Introduction to 
Computer Arithmetic," pg. 20-24. 

All about those strange binary numbers together with a 

listing for a Decimal to Binary program. 

703. Compute II, Issue 1 (April/May 1980) 

Rehnke, Eric, "The Single-Board 6502," pg. 3-8. 

Notes on an EPROM simulator, improved disk-based 
assemblers, Speak and Spell interface, etc. 

Zunchak, Gene, "Nuts and Volts," pg. 9-14. 

All about the 6502 Read/Write timing, Interfacing, Access 
Time, etc. 

Day, Michael E., "RS232 Communications: Part 1," pg. 16-18. 
Learn all about the use of RS232 interfaces to connect 
communications devices together. 

Stone, Harold, R., "An Upgrade for KIM Microchess 1.0," pg. 
19-23. 

Modify the Microchess 1.0 to play a better game of chess. 

Ditts, Joseph A. and Herman, Harvey B., "Program Transfers 

(PET to KIM)," pg. 25-26. 

Using this transfer routine you can use Basic PET pro- 
grams on your KIM. 

Isaacs, Larry, and Compute Staff, "Designing an IEEE-488 
Receiver with the SYM," pg. 27-30. 

Part 1: Implementing the IEEE-488 Bus on a SYM-1. 

McCreary, Dann, "COSAPPLE, an 1802 Simulator for the Ap- 
ple II," pg. 34. 

COSAPPLE is an 1802 simulator and debugger designed 

to run on the Apple. 

McCreary, Dann, "COSMAC: KIM-1 1802 Simulator," pg. 34. 
This 1802 simulator is capable of real-time operations of 
moderate speed. 

Sandlin, Larry, "Fun with the 1802," pg. 34-35. 

Have fun with the low cost, low power consumption 1802. 

Lock, Robert, "The Serious Side of the 1802," pg. 35. 
Applications for the 1802 will be published in the future in- 
stallments. 

DeJong, Marvin L, "Improved Pulse Counting Software for 
the 6522 VIA," pg. 36-38. 

Sharpen up your timing or frequency counter programs 

with the suggestions in this article." 

Oliva, Richard F., "Printing a Symbol Table for the AIM-65." 
pg. 40. 

In revising a program, a print-out of the symbol table can 

be very helpful." 

Sproul, Keith, "Hard Copy Graphics for the KIM," pg. 43-46. 
With a bit-mapped video board you can do professional 
quality graphics. 

Mackay, A.M., "24 Hour Clock for SYM-1 Basic," pg. 46-48. 
With this program you can have a time-of-day clock. 

Stanford, Charles, L., "Screen Clear Routines for the OSI 
C1P," pg. 49-50. 
Speed up the screen clear routines. 
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Missing MICRO Information? 

MICRO is devoted exclusively to the 6502. In 
addition, it is aimed at useful, reference type 
material, not just "fun and games". Each 
month MICRO publishes application notes, 
hardware and software tutorials, a continuing 
bibliography, software catalog, and so forth. 
Since MICRO contains lots of reference 
material and many useful program, most 
readers want to get the entire collection of 
MICRO. Since MICRO grew very rapidly, it 
quickly became impractical to reprint back 
issues for new subscribers. In order to make 
the older material available, collections of the 
reprints have been published. 

[A limited number of back issues are still 
available from number 7 to 18 and 20 to cur- 
rent. There are no 19's left.] 

The BEST of MICRO Volume 1 contains all of 
the significant material from the first six 
issues of MICRO, from October/November 
1977 through August/September 1978. This 
book form is 176 pages long, plus five 
removeable reference cards. The material is 
organized by microcomputer and almost 
every article is included. Only the ads and a 
few 'dated' articles have been omitted. [Now 
in third printing!] 
Surface . . . $7.00 Air Mail . . . $10.00 

The BEST of MICRO Volume 2 covers the se- 
cond six issues, from October/November 1978 
through May 1979. Organized by microcom- 
puter, this volume is 224 pages long. 

Surface . . . $9.00 Air Mail ... $1 3.00 

The BEST of MICRO Volume 3, covering the 
twelve issues from June 1979 through May 
1980, will be over 400 pages long. It is 
scheduled for late summer 1980. The price is 
still to be determined. 

For a free copy of the Index for Volumes 1, 2, 
and 3, please send a self-addressed, stamped 
envelope to: 

BEST of MICRO, P.O. Box 6502, Chelmsford, 
MA 01824 
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All ABOUT 

OSI 

BASIC-IN-ROM 



BASIC and MONITOR REFE- 
RENCE MANUAL for Ohio Sci- 
entific Microsoft BASIC — 
IN— ROM Version 1.0 Rev. 3.2 
Complete, Concise (not a 
tutorial), Accurate and Detail- 
ed. All statements and com- 
mands. Looping. Tapes: 
BASIC and homemade. Binary 
representation of floating 
point. Storage of source code 
and variable tables above 
$0300. Maps of pages 
$00,01,02. Routines in 
$A000-BFFF. Line by line 
description of pages $FE and 

FF $8.95 postpaid. 

Send a check, or COD ($1.10 
fee). 

Dealers' inquiries invited. 

E.H. Carlson 

3872 Raleigh Drive 

Okemos, Ml 48864 



48864 

M ■ 1 »-J 



I TREE 

CATALOGS 

Software. Lists 400 pro- 
grams on 70 tapes and 
disks. For education, recre- 
ation, and personal use. 

□ Books. Lists 100 books, 
games, records, prints, etc. 
for educational and per- 
sonal users of small compu- 
ters. 

D Peripherals. (ALF music 
synthesizer and Versa- 
Writer for the Apple II). 

Send 3 15 <t stamps for 
either catalog or 5 for both. 
Or send $2.00 for a sample 
issue of Creative Computing 
and both catalogs. 

GPeattve 
computing 

DEPT. MCJG 
P.O. Box789-M 

Morristown, NJ 07960 
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MR. RAINBOW 

announces... 

our all new 1980 

catalog and prompts 

you to peek at the 

latest collection of 

software and 

hardware products 

for your APPLE ir 




Write or call today 
for your free 1980 

:': ■*■ :--:- ;-:: catalog. 



Garden plaza Shopping center 

9719 Reseda Boulevard 

Nortnndge. California 91324 12151349-5560 Deot.9Mi 
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Management Planning & Decision Making 

(for 32k or ^k apple ii with Applesoft basic in rom) 



QuihDirt 



# PRODUCTION SCHEDULING •& INVENTORY CONTROL •& CAPITAL BUDGETING 

■fr DISTRIBUTION PLANNING 

CONGRATULATIONS. . . 

YOUR APPLE II COITOIR HAS JUST BEEN PROMOTED INTO "MIDDLE MANAGEMENT"! 

SEE YOUR LOCAL COMPUTER STORE OR CONTACT: 

\wyman associates 

421 SEVILLE WAY 
SAN MATEO CA 
94402 



■fa SUGGESTED RETAIL PRICE. $120 



The Great 
American Solution 

Machine 



More than 50,000 
students, teachers and 
administrators solve 
problems with this 
reliable Commodore 
computer. 

You're looking at the 
Number One computer in 
education today. 

In fact, you've probably 
already used it. 

The Commodore. 

You know it teaches. 
Guides. Challenges. 
Analyzes. Organizes. 
Simplifies. 



But did you know it has 
capabilities that are far 
beyond its price range? 

You can accomplish tasks 
with The Commodore at a 
price/performance ratio that 
leads the field. 

You can also count on 
The Commodore showing up 
for class every day. 

It's a remarkably sophis- 
ticated, remarkably reliable 
machine. Around 
the world in 

1 




schools — and businesses 
too — there are more 
than 100,000 Commodore 
computers now at work. 

If you sense a snag in the 
flow of knowledge in your 
classes, we think you should 
challenge The Commodore. 
Compare it against any 
computer in — or above — its 
field. 

See if it won't raise the 
level of interest and accom- 
plishment among your 
students. 

And simplify the com- 
plex in your administrative 
duties. 

All at a price that makes 
it stand alone. 

For the name of your 
nearest authorized Commo- 
dore dealer, just write to: 
Commodore Business 
Machines, Inc., 950 Ritten- 
house Rd., Norristown, PA 
19401 
Call now toll-free. Asb for operator 973: 



800-824-7888 

(In Calif.. 800-8527777) 

(In Alaska and Hawaii, 800-824 7919) 

^ commodore 



Cost Effective Systems for the 
Microcomputer OEM . 



Ohio Scientific has been building small 
business microcomputers and personal 
computers since the beginning of the 
microcomputer revolution. Most Ohio 
Scientific products incorporate a bus 
architecture utilizing modular circuit 
cards mated to a multi-slot backplane. 
Ohio Scientific's 48 signal line bus is 
designed to effectively marry the versa- 
tility and modularity of bus architecture 
with the economies of consumer products 
producing an ultra-low cost yet reliable 
system. Many industrial users of micro- 
computers recognize the economy and 
versatility of Ohio Scientific's modular 
computer boards and utilize these boards 
and subsystems as well as customers 
who purchase complete computer 
systems on an OEM basis. 

Ohio Scientific's 
New OEM Program 

Ohio Scientific now recognizes the 
importance of the OEM marketplace and 
is introducing a complete program for the 
board level OEM user as well as the 
system OEM. The program starts with our 
standard products including three CPU 
boards, a broad range of static and 
dynamic memory boards, mini and 8" 
floppy disk controllers, printer controllers, 
multiple RS-232 port boards, a hard disk 
controller, and video interface with 
optional keyboard. Backplanes with two, 
four, eight or sixteen slots are available. 
These standard products are now being 
supplemented by a broad range of 



products specifically for the OEM user 
including: 

• New universal telephone interface 
board which has auto-dial capability, 
auto-answer capability, tone encoding 
and decoding, answer and originate 300 
baud modem and voice I/O via tape 
recorder or optional phonetic voice 
output system. 

• New calendar-clock with several month 
battery backup capability which can be 
programmed to automatically restart 
the computer or shut off the computer at 
set times. The circuit board also 
includes automatic power-fail restart 
capability. 

• Instrumentation quality high speed, 

1 2-bit analog AID - D/A module with a 
16-channel input multiplexer and two 
12-bit D/A converters. 

• A large range of parallel interface 
options including circuit cards contain- 
ing 48 parallel I/O lines. 

• New solderless prototyping board which 
connects to the computer system 

and allows rapid prototyping of new 
interface ideas. 

• System PROM blaster which accepts 8K 
through 64K bit industry standard 
EPROMS and a universal EPROM-ROM 
card. 

• A card edge extender, bus analyzer and 
bus compatible breadboards. 

Documentation 

All of Ohio Scientific major circuit boards 
are now fully documented by Howard 
Sams (the originator of the Sams Photo- 
fact series for Consumer Electronics) 

servicing manuals which include 
i block diagrams, schematics, 
detailed pictorials, parts place- 
ment diagrams and parts lists 



providing the designer, systems integrater 
and serviceman with detailed hardware 
information. Ohio Scientific is offering 
qualified OEM users its principal disk 
operating system (OS-63D V3.2) which 
supports multiple languages, mini-floppies, 
8" floppies, printers, modems and other 
accessories in documented Source Code 
and machine readable form which can be 
reassembled on standard OSI computers. 
This gives the product developer the 
ultimate flexibility in integrating these 
components into his total system design. 

Best of all is the Price 

Because of Ohio Scientific's hundreds of 
thousands of boards per year volume for 
the consumer and small business market, 
these products cost a mere fraction of the 
corresponding LSI-1 1 , SBC or S-100 bus 
boards. This economy allows you to utilize 
a floppy subsystem in your product at a 
total cost typically less than an EPROM 
based system from other vendors. 

Ohio Scientific's reasonably priced 
universal telephone interface and voice 
output capabilities allow you to integrate 
advanced telecommunications, remote 
control capabilities and/or unlimited 
vocabulary voice response in your 
systems at the same price as a "bare 
bones" implementation with other bus 
architectures. 

Easy to Start With 

Getting started with the OSI bus architec- 
ture is now easy with documentation, off 
the shelf availability, and economical 
computer systems for in-house software 
development using Assembler, BASIC 
FORTRAN or PASCAL. Ohio Scientific's 
new OEM contract provides easy to start 
with terms and generous volume 
discounts. 

For more information and the name and 
phone number of your local Ohio 
Scientific OEM representative call 
1-800-321-6850 toll free. Please specify 
your interest as an OEM user. 




